You'll also find something very similar in the Perl Cookbook on page 164:

# strip to basename
($progname = $0)        =~ s!^.*/!!;
[download]

-- vek --