One more.

my $path_like_thingee = shift || die "Give me a path-like thingee.\n";
$path_like_thingee =~ m,([^/]+)$,;
print $1 || 'no dice!', "\n";
[download]