Select Code to Download

foreach my $file (@pics)
        {
...
        $label->configure(-text => "$file finished"); 
        $label->update;
        }

#!/usr/bin/perl -w
use strict;
...
  printf " %6.1f/bps", $received_size/(($time_now-$request_time)||1)
     if $received_size;
}