use File::Basename qw(basename);

my $file_name = basename $0;