#!/usr/bin/perl
use strict;
use warnings;
use Net::FTP;
my $ftp = Net::FTP->new("some.host.name") or die "Server not found!\n";
$ftp->login("anonymous",'me@here.there') or die $ftp->message();
$ftp->cwd("/pub") or die $ftp->message();
$ftp->get("that.file") or die $ftp->message();
$ftp->quit;