Today's Perl cat test

Here is what a candidate today provided when asked to implement /bin/cat in Perl:

my $file = <ARGV>;
print $file;