Hard to tell what that's actually doing

Not at all :)

$ perl -MO=Deparse -le " for(<@ARGV>){print} "
BEGIN { $/ = "\n"; $\ = "\n"; }
use File::Glob ();
foreach $_ (glob(join $", @ARGV)) {
    print $_;
}
-e syntax OK
[download]