use FindBin;
print "Program name $FindBin::Script\n";