Select Code to Download

#!/usr/bin/perl
use warnings;
...
    print $s, "\n";
}
print $s, "\n";

$ perl t.pl
"my" variable $s masks earlier declaration in same scope at t.pl line 
+5.
...
Use of uninitialized value $s in print at t.pl line 11.

Foo

#!/tools/packarch/public/perl/5.8.8/bin/perl
use strict;
...
{
  print "string not found\n";
}