>>23
#grapGetという名前の関数（サブルーチン）を定義
sub graphGet {
#関数内だけで使うmy変数を宣言
my($len,$out,$min);
#引数を変数に代入
my($max,$now,$width,$height,$gif_name,$gif_name2) = @_;
以下略
#$outを戻り値にして終了
return $out;
}