sub FileProgress {
        my $wrote       = shift;
        my $size        = shift;
        my $percent     = $wrote / $size * 100;
    
        printf "\r[%-10s] %3u%% done. %u bytes", 
            '*' x int( $percent / 10 ),
            $percent,
            $wrote;

        return 1;
    }