Help for this page

Select Code to Download

Select or download this

$ perl -w -MData::Dumper -E'
 $SIG{__WARN__} = sub { print Dumper \@_, [ caller(0) ] }; # create an
+d install the handler
 my $undef; # obviousely undefined
...
          }
        ];
 undef