Technically though, you've also messed up ARGV and $ARGV. The safest would be:

my @array = do { local *ARGV; @ARGV = "foo.txt"; <> };
[download]

-- Randal L. Schwartz, Perl hacker