use Net::FTP;
use constant HOST=> '192.168.128.3';
use constant DIR=>'/home/corersky/study/perl';
use constant FILE=>'test.txt';
my $ftp=Net::FTP->new(HOST) or die "Could not connet:$@/n";
$ftp->login('test','test') or die $ftp->message;
$ftp->cwd(DIR) or die $ftp->message;
$ftp->get(FILE) or die $ftp->message;
$ftp->quit;
warn "ftp file ok!/n";