perlでFTPモジュールを使ってファイルのアップ・ダウンを
やりたいのですが、特定の環境・ホストの組み合わせによっては
出来ない場合があります。

ログインまでは出来るのですが、なぜかリスト取得（nlst）や
ファイルのput・getができません（pwdやcwdはできます…）。

エラーが出るわけではなく、タイムアウトしてしまいます。
どうすればいいでしょうか。以下、ソースです。


#ここから
use Net::FTP;
$ftp = Net::FTP->new($ftphost, Debug => $ftpdbg, Passive => $passive)||die "Net::FTP FAILED";
$ftp->login($ftpuser,$ftppass);
$ftp->ascii();
$ftp->cwd("web/cgi-bin");
@files = $ftp->dir();
print join("\n",@files)."\n\n";
#ここまで

このソースを別環境で試してみたところ、問題無く
動きました…。ちなみに、当方LANからのADSL接続です。