perl Net::FTPでgifファイルがちゃんとアップロードされない件

perl Net::FTPでgifファイルがちゃんとアップロードされず、困りました。

画像が途中まで表示されますが、
最後まで表示されないのです。

そこで、

$ftp->binary();

バイナリモードをしっかり指定したら、
表示されるようになりました。

今まではFFFTP使ってて、
ほとんどアスキーとかバイナリとか考えなくてよかったので、
すっかり忘れていました。

<quote>

use Net::FTP;
$ftp = Net::FTP->new("host", Debug => 1);
$ftp->login("usrname", "pass");
$ftp->cwd("directory");

$ftp->binary();

$ftp->put("hoge.gif");
$ftp->quit;

</quote>