Perl - テンプレート

#!/usr/bin/perl

use strict;
use warnings;

# スクリプトの説明: ここにスクリプトが何をするかを簡単に説明します。
# 使用法: ./script_name.pl [オプション]

# 変数の定義
my $variable = "value";

# 関数の定義
sub function_name {
    # 関数の内容
    print "これは関数です\n";
}

# メインスクリプトの処理
print "スクリプトが開始されました\n";

# 関数の呼び出し
function_name();

# 条件分岐
if (@ARGV && $ARGV[0] eq "example") {
    print "例のパラメータが渡されました\n";
} else {
    print "他のパラメータが渡されました: @ARGV\n";
}

# ループ処理
for my $i (1..5) {
    print "カウント: $i\n";
}

# スクリプトの終了
print "スクリプトが終了しました\n";
exit 0;