my  $ftp = Net::FTP::Throttle->new($host,
        Debug => 0,
        Passive => 1,
        Bytes_read => 4096,
        BlockSize => 4096,
        MegabitsPerSecond => 50)
      or die "Cannot connect: $@";