use Net::FTP;
$ftp = Net::FTP->new("$host", debug => 1) or die "Host:   $!";
$ftp->login($user,$pass) or die "Login:    $!";
$ftp->cwd() or die "Dir: $!";
$ftp->get("$file","$dir\/$file") or die "File:    $!";
$ftp->quit;