my $directory='C:/Temp';

mkdir($directory);
chdir($directory);


my $ftp = Net::FTP::Recursive->new("$ftp1", Debug => 0);
    $ftp->login("$login",'$password');
    $ftp->cwd('/');
    $ftp->rget();
    $ftp->quit;

my $ftp2 = Net::FTP::Recursive->new("$ftp2", Debug => 0);
    $ftp2->login("$login",'');
    $ftp2->cwd('/');
    $ftp2->rput();
    $ftp2->quit;


chdir("C:/");
remove_tree($directory);