ThinkGeek interview question

Write a Perl version of the Linux wc command.