Select Code to Download

  my $progress = $mw->Toplevel();
  $progress->title("Download progress");
...
  $percent_done = ( $block_count / $file_size ) * 100;
  $mw->update();
}

sub hash {
    my $ftp = shift;        # self
...
    $b = 512 if $b < 512;
    ${*$ftp}{'net_ftp_hash'} = [$h, $b, $p];
}

    # call the subroutine with the number of #'s notionally.
    &$hashh ( int($count / $hashb), $hashp);

package InContact::FTP;
#
...
=cut

1;