Select Code to Download

#!/usr/bin/perl -w

...
    $SIG{__DIE__} = \&do_sig_die;
}

here 1
here 2
...
SIGDIE caught
Can't call method "quote" on an undefined value at ./pd.pl line 83.
prompt$>