最初の質問者ではありませんが、便乗で質問させて下さい。

> 1139行目に2796〜2832行目
> if($ico=~/.gif$/i){ #GIF
> 　：
> }
> までを挿入してそこにある $ico を $file に変更、
> if($IW >= 横幅 || $IH >= 縦幅){&er_("サイズが大きすぎます!");}
> でできると思います。

上記の修正を行ってみたところ、設定した値以上のファイルをアップしても
エラーチェックが働きません。


	if($file=~/.gif$/i){ #GIF
		open(GIF,"$i_dir/$file");
		binmode(GIF);
		seek(GIF,6,0);
		read(GIF,$size,4);
		close(GIF);
		($IW,$IH)=unpack("vv",$size);
	}elsif($file=~/.png$/i){ #PNG
		open(PNG,"$i_dir/$file");
		binmode(PNG);
		seek(PNG,16,0);
		read(PNG,$Pw,4);
		read(PNG,$Ph,4);
		close(PNG);
		$PW=unpack("H*",$Pw);$IW=hex($PW);
		$PH=unpack("H*",$Ph);$IH=hex($PH);
	}elsif($file=~/.jpg$|.jpeg$/i){ #JPEG
		open(JPG,"$i_dir/$file");
		binmode(JPG);
		read(JPG,$Top,2);
		while (JPG) {
			read(JPG,$Top,4);
			($mark,$Cell,$Lar)=unpack("aan",$Top);
			if($mark ne "\xFF"){$IW=0; $IH=0; last;}
			elsif((ord($Cell) >= 0xC0) && (ord($Cell) <= 0xC3)){
				read(JPG,$Top,5); ($IH, $IW)=unpack("xn2",$Top); last;
			}else{read(JPG,$Top,($Lar-2));}
		}
		close(JPG);
	}elsif($file=~/.bmp$/i){ #BMP
		open(BMP,"$i_dir/$file");
		binmode(BMP);
		seek(BMP,18,0);
		read(BMP,$size,8);
		close(BMP);
		($IW,$IH)=unpack("V2",$size);
	}

	if($IW >= 120 || $IH >= 160){&er_("サイズが大きすぎます!");}
}

とやってみたのですが、チェックが働いていないようなので、試しに
&er_("サイズが大きすぎます!");
だけを書いてみるとエラーが出ます（当然ですが・・）
なので上記の方法では　$IW　$IH　に値が入っていないのでは？と思います。
残念ながら自分の技量ではここまでしかわかりません。
どうかご教授お願い致します。

〜略

	}elsif($file=~/.bmp$/i){ #BMP
		open(BMP,"$i_dir/$file");
		binmode(BMP);
		seek(BMP,18,0);
		read(BMP,$size,8);
		close(BMP);
		($IW,$IH)=unpack("V2",$size);
	}

&er_("サイズが大きすぎます!");

}

・・・の場合はエラーが出ません。
これを、

〜略
	}elsif($file=~/.bmp$/i){ #BMP
		open(BMP,"$i_dir/$file");
		binmode(BMP);
		seek(BMP,18,0);
		read(BMP,$size,8);
		close(BMP);
		($IW,$IH)=unpack("V2",$size);
	}
}

&er_("サイズが大きすぎます!");

・・・とするとエラーが表示されます。（変数$IW,$IHを書いた場合も同様）
未熟ながら自分でも調べてみましたが、変数の有効範囲（グローバル変数？）と関係あるのでしょうか？
見当違いなことを言っているのかもしれませんが、アドバイスをお願いします。
あと勉強不足ながら以下のような事も試してみましたが、やはりダメでした。

if(-e "$i_dir/$file"){

	if($file=~/.gif$/i){ #GIF
		open(GIF,"$i_dir/$file");
		binmode(GIF);
		seek(GIF,6,0);
		read(GIF,$size,4);
		close(GIF);
		($IW,$IH)=unpack("vv",$size);
	}elsif($file=~/.png$/i){ #PNG
		open(PNG,"$i_dir/$file");

〜途中略

	}elsif($file=~/.bmp$/i){ #BMP
		open(BMP,"$i_dir/$file");
		binmode(BMP);
		seek(BMP,18,0);
		read(BMP,$size,8);
		close(BMP);
		($IW,$IH)=unpack("V2",$size);
	}

&er_("サイズが大きすぎます! / (高さ$IW / 幅$IH)");

}
}

 
> if($FORM{'URL'}){
> の直前にいれてみてください。
> 上記の場所だと、プレビュー時にしかチェックできません。

指示いただいた箇所に入れて確認しましたが、以下のようになります。

　ERROR-サイズが大きすぎます! / (高さ / 幅)

・・・となって、強制でエラーになっても取得しているはずの縦横の値
の引数が&er_に渡されていないようです。
また&er_の前にif〜の条件分岐を付け足すと強制エラーが働かなくなって
しまいました。
自分が理解できる範囲では画像フォーマットに応じて取得した縦横の値
が$IW、$IHにそれぞれ代入され、それをエラーサブルーチンを呼び出す
際の引数として&er_に渡されるのが正解ですよね？
ソースを眺めていますがこれ以上はどうしてもわかりません。

尚、テストとしてアップロードしている画像は同一のものを使用し、
ソースに改造を加えない状態で正常にアップロードが出来て、
アップロード後にスレッド表示画面でも画像サイズ640x480→320x240等
と取得された値が表示されるものを使用しています。

念のため指示いただいた修正を行ったソースを書いておきます。

ttp://www.42ch.net/UploaderSmall/source/1077027386.txt