1 2 3 4 5 6 7 8 9
#!/usr/bin/perl print "Hello, World\n"; while(<DATA>){ print $_; } __END__
1
Hello, World