Perl ftpモジュール

use Net::FTP;

my $ftp = Net::FTP->new('ftp.hogehoge.com');

$ftp->login('hoge_id', 'hoge_password');

$ftp->cwd('hogehoge_directory');

$ftp->binary;

$ftp->get('hogehoge');

$ftp->quit;

Perl から ftp を読み出し。