#!/usr/bin/perl

use Net::FTP;

$ftp = Net::FTP->new("mysite.com", Debug => 0);
$ftp->login("myusr",'mypwd');
print $ftp->message,"\n";
$ftp->cwd("/pub");
print $ftp->message,"\n";
$ftp->get("myfile.pdf");
print $ftp->message,"\n";
$ftp->quit;