#!perl -w $|++; eval <>; #### C:\test>p1 print "hello world!" hello world! C:\test>