Here's a one-liner to extract the base name from the full path without a temporary array:

my ($basename) = $0 =~ m/.*\/(.*)/;
[download]

You can also use split() like this:

my $basename = (split /\//, $0)[-1];
[download]

-Matt