Today's Perl test

For your viewing pleasure, here is today's cat implementation from a candidate who claimed to know Perl.

#@/usr/bin/perl

use strict;
use warning;

P