use Net::FTP;

$ftp = Net::FTP->new("some.host.name", Debug => 0)
  or  die "Can't FTP to some.host.name: $@\n";
$ftp->login("anonymous",'me@here.there')
  or  die "Anonymous access denied!\n";
$ftp->cwd("/pub")
  or  die "Can't chdir to remote /pub.\n";
$ftp->get("that.file");
  or  die "Can't fetch that.file.\n";
$ftp->quit;