use Net::FTP;

    $ftp = Net::FTP->new("Ram", Debug => 0)
      or die "Cannot connect to some.host.name: $@";

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

$temp = $ftp->pwd();
print "test\n", $temp  ;

    #$ftp->get("test.txt")
    #' or die "get failed ", $ftp->message;

    $ftp->quit;