use Net::FTP;


    $ftp = Net::FTP->new("xxx.xx.xxx.xxx")
      or die "Cannot connect to some.host.name: $@";
      print "1111";

    $ftp->login("anonymous",'-anonymous@')
      or die "Cannot login ", $ftp->message;
      print "2222";

    $ftp->cwd("D:\folder")
      or die "Cannot change working directory ", $ftp->message;
      print "3333";
      
    $ftp->put("test.txt")
      or die "put failed ", $ftp->message;
      print "4444";