use File::Spec::Functions qw( rel2abs splitpath );
print +( splitpath rel2abs $0 )[2];

##</code><code>##

use File::Spec::Functions qw( rel2abs );
use File::Basename;
print basename rel2abs $0;