Select Code to Download

#!/usr/bin/perl -w
use Carp;
...
};
print $@ if $@;

Pig

...
        eval {...} called at ./test7.pl line 13
        eval {...} called at ./test7.pl line 12
        eval {...} called at ./test7.pl line 12