This is something that you could probably do much more easily using JavaScript.

It'd be nice to use Perl for everything, but every now and again you have to stray...

<SCRIPT TYPE="text/javascript">
function doSubmit()
{
  parent.framename.document.location.replace('blah.pl');
  parent.framename2.document.location.replace('blah2.pl');
}
</SCRIPT>

....

<FORM onSubmit="doSubmit()">

....
[download]

---

perl -e 's=$;$/=$\;W=i;$\=$/;s;;XYW\\U$"\;\);sig,$_^=$[x5,print;'
[download]