use Net::FTP::File;
my $ftp = Net::FTP->new($ftp_host) or croak;
$ftp->login($user, $pass) or croak;
$ftp->new_ftp_action($args);