One might think so, except there is no Perl code anywhere in sight. Hard to make suggestions about something we can't see.