local $/; open(my $fh,"meinfile.txt") or die $!; my $zeile = <$fh>; close $fh; eval($zeile);