Today's Perl cat test

Here is the Perl /bin/cat implementation for today's candidate:

open $file;
write $file, >;

Yeah, I don't think we're going to hire this one...