I would go with core module File::Basename

use strict;
use warnings;
use File::Basename;

my($filename, $directories, $suffix) = fileparse($0, qr/\.[^.]*/);

print $filename,"\n";
[download]