Select Code to Download

$ perl a.pl
Use of uninitialized value in print at a.pl line 11 (#1)
...

done.

sub callstack
{
...
    goto &Carp::cluck;
    $SIG{__WARN__} = \&callstack;
}

sub callstack
{
...
    require Carp;
    print STDERR Carp::longmess(@_);
}