my $contents = do { local (@ARGV, $/) = $filename; <> };
[download]

This, on the other hand

# Slurp file
my $contents = do { local (@ARGV, $/) = $filename; <> };
[download]

Very cool, BTW.

ADDED: --/me for not noticing Aristotle's post saying the same thing.

()-()
 \"/
  `