use Net::DownloadMirror;

my $um = Net::DownloadMirror->new(
        ftpserver       => "192.168.0.52",
        usr             => "nathanvi",
        pass            => "MYPASS",
        localdir        => "C:\\Documents and Settings\\dip8a01015\\EasyPHP1-8\\www\\tiki",
        remotedir       => "/var/www",
        debug           => 1, # 1 for yes, 0 for no
        timeout         => 500, # default 30
        );
 print("hostname : ", $um->get_ftpserver(), "\n");
 $um->Update();

##</code><code>##

....
Net::FTP=GLOB(0x1ae5470)>>> CWD /var/www//var/www/dadabik
Net::FTP=GLOB(0x1ae5470)>>> 550 /var/www//var/www/dadabik: No such file or directory
/var/www//var/www/dadabik is neither a file nor a directory
....

##</code><code>##

[21/Mar/2006:17:25:50 +0100] nathanvi.lingotto.local 192.168.50.195 550 SIZE - - - "SIZE /var/www//var/www/dadabik
[21/Mar/2006:17:25:50 +0100] nathanvi.lingotto.local 192.168.50.195 550 CWD - - - "CWD /var/www//var/www/dadabik