Today's Perl test

After telling me that "cat is used to look at the last few lines of a file", here is what today's candidate wrote for his Perl implementation of cat:

=======
cat_pl.

File (Open, cat_pl)
While (!EOF)
$print
=======

Uh, ok.