Select Code to Download

use File::Basename;
use Net::FTP;

...
$ftp->cwd(dirname($apath));
$ftp->binary();
my $dataconn = $ftp->retr(basename($apath));

my $data;
while ($dataconn->read(my $buffer, 1024))
{
...
}

print $data;