ThinkGeek Interview Question

Write a Perl version of the Linux wc command.