Too much Perl!