use Net::FTP; 
$ftp = Net::FTP->new("servername", Debug => 1);
$ftp->login("username","passwd");
$ftp->message();
$ftp->cwd("/tmp");
$ftp->get("some.file");
print "get returned: $ftp\n";
$ftp->quit;