Some Perl fun syntax fun.