Perl hack...