print do{@ARGV=$0;*/;<>};        # wtf
[download]

*/ is the glob for the family of variables named /, short for *main::/.

Perl core uses $/. Regexp::Grammars uses %/.