Select Code to Download

# main.pl
BEGIN {
    $^P = 0x400;
}
use test ();

# test.pm
my @source = @{ $main::{ '_<' . __FILE__ } };
print for @source;
1;