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

my $ftp = Net::FTP->new('localhost');
$ftp->login($user, $password);
$ftp->cwd(dirname($apath));
$ftp->binary();
my $dataconn = $ftp->retr(basename($apath));

##</code><code>##

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

print $data;