@ARGV = $_, push @data, $_, <> for @{[@ARGV]};
[download]

Hmm. There was some other clever trick to dup a list too, but I can't recall now.

-- Randal L. Schwartz, Perl hacker

---

update: Yeah, it's

@ARGV = $_, push @data, $_, <> for map $_, @ARGV;
[download]