http://www.perlmonks.org?node_id=972774


in reply to how to have / in FILEHANDLE?

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');