use File::Basename ();
my $basename = &File::Basename::basename($0);