Select Code to Download

#!/usr/bin/perl

...
sub foo {
    return('foo');
}

prompt > perl -MO=Deparse test.pl
my $a = &foo();
...
}
test.pl syntax OK
prompt >