package Mod;
use File::Spec::Functions qw(splitpath);
print( (splitpath(__FILE__))[1], "\n");