I tried to make it simple but still doesn't work. It returns nothing. Please let me know if you can find anything wrong with this code or modify to get the size of the remote file. Thanks
#!/usr/bin/perl
use strict;
use Net::FTP;
my $user = "someuser";
my $passwd ="password";;
my $host = "someFTPserver.com";
my $file = "somefile.txt";
my $ftp = Net::FTP->new($host) or die "$@";
$ftp->login($user, $passwd) or die $ftp->message;
my $dir = "/home/somedir/mydir/dest";
$ftp->cwd($dir) or die "Can't cwd to $dir\n";
my $remote_size = $ftp-> size($file);
print ("The source file size is :", $remote_size , "\n");
$ftp->quit;