You can make the name grab more reliable by using -1 to get the last element.

- my $name = (split '([^/]+$)', $ENV{'SCRIPT_NAME'} || $0)[1];
+ my $name = (split '/', $ENV{'SCRIPT_NAME'} || $0)[-1];
[download]