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));