I really like freakOut and exit unless scalar @ARGV >= 4; I'm such a bonehead I thought you had typo'ed and left the pound off the front of a comment =)

And the "scalar" part isn't needed. The >= comparator does that for ya.

--
$you = new YOU;
honk() if $you->love(perl)