And if you need the path, you can go with

my ($path, $script) = $0 =~ /^(.*\/)?(.+)/;
[download]