#ヘッダ飛ばしフラグ
$flags = 0;
open(FILE_,">$downdir$file_name");
while (<SOCKS_>){
if ($flags == 1){ print FILE_ $_;}
if ($flags == 2){ $flags = 1;}
if ($_ = /Content-type/i) { $flags= 2 ;}
}
close(SOCKS_);
close(FILE_);
exit;

--スクリプトここまで

とある本に載っていた、ファイルのサーバ間転送のスクリプトをそのまんま（ユーザエージェントなどは変更）写しました。
が、いくら「転送開始」ボタンを押しても、一向に転送が始まりません。
ちゃんと転送開始されていれば、ページ上部に「ダウンロードを開始します」と出るのですが、
それが出ないことから、
＞　if ($FORM{'url'} ne ''){
のところがあやしいと思ってるんですが。。。
くだらない質問かも知れませんが、よろしくお願いいたします。

ちなみに、>>58をindex.cgi >>59-60をdownload.cgiというファイル名で設置しています。