Get the name of perl script

Method 1:

use File::Basename;
my $name = basename($0);
print "$name\n";

Method 2:

print $0,"\n";