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