Select Code to Download

my $amount_so_far = 0;
while (my $line = <>) {
   $amount_so_far += length($_);
   update_progess_bar_as_needed($amount_so_far,$total_length);
}