use Net::FTP;
...
$ftp->get("that.file");
...

##</code><code>##

Net::FTP=GLOB(0x??????)>>> PORT xxx,xxx,xxx,xxx,198
Net::FTP=GLOB(0x??????)<<< Port request OK.
Net::FTP=GLOB(0x??????)>>> RETR FFFFF.XXX
Net::FTP=GLOB(0x??????)<<< 125 Sending data set xxx.xxx.xxx
Timeout at ... Net/FTP.pm line 471
Net::FTP=GLOB(0x??????)>>> QUIT
Net::FTP=GLOB(0x??????)<<< 250 Transfer completed successfully