perl -e'print "Test\n"; $/=undef; eval(<>)' /pfad/zur/datei.pl