use Net::FTP;

$ftp = Net::FTP->new("myserver@here.com", Debug => 0);
$ftp->login("myname","mypassword") || die "Did not work:$!\n";
$ftp->cwd("/usr/home/myname");
$ftp->get("test.txt");
$ftp->quit;