Select Code to Download

$ cat foo.pl
use strict;
...
..
"$unused" is declared but not used. at line 4, column 1.  Unused varia
+bles clutter code and make it harder to read.  (Severity: 3)
..

$ perl -wle 'my $i; print $i'
Use of uninitialized value in print at -e line 1.
...
Use of uninitialized value in addition (+) at -e line 1.
$ perl -wle 'my $i; if ($i>0) {}'
Use of uninitialized value in numeric gt (>) at -e line 1.