Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

use strict;
...
}
$_ = 10;
foo (sub { print $_ });
  2. or download this
    #!/usr/bin/perl

use strict;
...
    undef $var;
    $sub->(); # unitialized warning
}