use Net::FTP;
 
$ftp = Net::FTP->new("some.host.name", Debug => 0);
$ftp->login("anonymous",'-anonymous@');
$ftp->dir("/usr/local/ftp/mark");
$ftp->get("/usr/local/ftp/mark/that.file");
$ftp->quit;