Select Code to Download

!/usr/bin/perl -l
use strict;
...
__DATA__
FOO
BAR

Use of uninitialized value in concatenation (.) or string at ./828268.
+pl line 14, <DATA> line 1.
found 
Use of uninitialized value in pattern match (m//) at ./828268.pl line 
+16, <DATA> line 1.
found BAR

sub foo {
    # ...
    local $_ = "whatever";
    $_ = undef;
}

found FOO
found BAR