よぉぉし、ではこれでどうだ。
use Net::FTP;
my $ftp = Net::FTP->new("ftp.freebsd.org");
$ftp->login("anonymous",'-anonymous@');
my $temp = do {
my ($rfh, $wfh);
pipe($rfh, $wfh);
$ftp->get("/pub/FreeBSD/ports/amd64/packages-8-stable/INDEX.bz2.md5", $wfh) or die "get failed ", $ftp->message;
close $wfh;
local $/;
<$rfh>;
};
print $temp;