use File::Basename;

my $k = basename $0; 
$_ = "$0";
s/$k//g;
my $verz = "$_";