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();