the $ftp->message; will contain some message. For example

#!/usr/bin/perl

use Net::FTP;

$ftp = Net::FTP->new("mysite.com", Debug => 0);
$ftp->login("myusr",'mypwd');
print $ftp->message,"\n";
$ftp->cwd("/pub");
print $ftp->message,"\n";
$ftp->get("myfile.pdf");
print $ftp->message,"\n";
$ftp->quit;
[download]

gives an output like

User myusr logged in.

CWD command successful

Opening ASCII mode data connection for myfile.pdf (10816217 bytes)
Transfer complete

Here we gets the size in bytes.

Cheers !

--VC

---

There are three sides to any argument.....
your side, my side and the right side.