Select Code to Download

#!/usr/bin/perl
use warnings;
...
    my $num = shift;
    return ++$num;
}

main hooklexwrap.pl 17 main::__ANON__ 1 1 1794 UUUUUUUUUUUUU
main hooklexwrap.pl 21 main::__ANON__ 1 1538 UUUUUUUUUUUUU
3