スクリプトファイル名の取得

　特殊変数の$0で取得できます。
　ログファイルへの出力やUsageの表示に使えます。

use File::Basename;

$name = basename($0);
print $name, "\n";