Once again, I am reminded to read the docs on Net::Cmd...

So then something like this would work nicely, huh?

#!/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;
[download]