Select Code to Download

#!/usr/bin/perl

...
    print "in c\n";
    die "dying because of $_[0]!\n";
}

in a
got wrong value foo
...
        main::b('foo') called at foo.pl line 13
        main::a() called at foo.pl line 9