#!/usr/bin/perl -w

use Net::FTP;

$ftp = Net::FTP->new("myhost", Debug => 0);
$ftp->login("anonymous",'test@user.com') || die "Could not log in\n";
$ftp->cwd("/pub/incoming") || die "Could not cd\n";
$ftp->get("that.file") || die "Could not find the right file\n";
$ftp->quit;