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

##</code><code>##

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