# main.pl BEGIN { $^P = 0x400; } use test (); #### # test.pm my @source = @{ $main::{ '_<' . __FILE__ } }; print for @source; 1;