use File::Basename;

my $scriptname = basename($0);