There are many possibilities, most not having to do with Perl, but instead with being, in the vernacular, "0wned".

I would start by checking myscript.pl for lines such as:

## ph34r teh mad sk1llz of da b0m-sh0p!!!11!!1!
print "document.location.href='http://foo.example.com/test'";
[download]