my $name = $k.\*;
[download]

should be:

my $name = $k . "*";
[download]

or:

my $name = "$k*";
[download]

Also qw expects whitespace separated arguments, so I suspect you don't want the commas in there.