B::Deparse gives you a good clue (Tip #6 from Basic debugging checklist):

open '/FILE', file;
print </FILE>

__END__

open /FILE, 'file';
use File::Glob ();
print glob('/FILE');
[download]

• glob