just another Perl hack,