This line probably causes you some grief:

$x =~ s/.lic/;
[download]

You'll probably get a Substitution not terminated at... error I would imagine. You probably meant to do this:

$x =~ s/.lic//;
[download]

-- vek --