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

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

print $filename,"\n";