Thanks for the book suggestions. But right now its an urgent requirement to complete the script. Here is what I used:

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";
[download]

The msg. it gives is Cannot connect to some.host.name: Net::FTP: connect: Unknown error The procedure to establish FTP is correct to the best of my knowledge, if some discrepency is there, please let me know. Or if something else is being missed, please help.