perl モジュール

#BEGINとENDのテスト
#begin_end.pm

#BEGINルーチン
BEGIN{
    print "モジュールを開始しました。\n";
}

#ENDルーチン
END{
    print "モジュールを終了しました。\n";
}

1;

モジュールを読み込むスクリプト

#begin_endモジュールを読み込む
#begin_end_call.pl

print "モジュール呼び出し前\n";

#モジュール呼び出し
use begin_end;
print "メインルーチンの終了\n";


#実行結果
# モジュールを開始しました。
# モジュール呼び出し前
# メインルーチンの終了
# モジュールを終了しました。