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