Length of Binary image on Net::FTP is zero

[fergmj]

Can someone tell me why the following works but the length of the image is 0?



$ftp = Net::FTP->new($hostname) or dienice ("Connect failed"
$ftp->login($user,$password) or dienice ("Login failed"
$ftp->cwd("/

http://www/user");

$ftp->binary;
$ftp->put($wholeimagepath, $imagefilename) or dienice ("Put failed"
$ftp->quit;