Select Code to Download

sub FileProgress () {
    my $wrote       = shift;
...
    printf " done. %u bytes.",$wrote;    
    return 1;
}