Select Code to Download

 perl> $_ = 'Foo'; print;
Foo
...
Bar
 perl> print $a;
Use of uninitialized value in print at (eval 4) line 1, <> line 4.

#!perl            # header
use warnings;     # enable warnings
use diagnostics;  # explain warnings
                  # code to test:
print "Hey world, I'm coming!!!\n";

perl C:\test.pl