Select Code to Download

$ perl -we 'my $x; print $x'
Use of uninitialized value in print at -e line 1.