Select Code to Download

#!/usr/bin/perl -w

...
test::test();

exit;

package test;
use strict;
...
}

1;

$ perl test.pl
main test.pl 13

$ perl test.pl
main foo 200

#line $lineno "$filename (autosplit into $path)"