自プログラム名を取得

use File::Basename;

print basename($0);