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