my $ftp = Net::FTP->new( $myhost, Timeout => 10, Debug => 1 );
    ...
    $ftp->get($myfile) or warn("Can't get file $myfile");
    $ftp->quit();