Help for this page

Select Code to Download


  1. or download this
    foreach my $file (@pics)
            {
    ...
            $label->configure(-text => "$file finished"); 
            $label->update;
            }
    
  2. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
      printf " %6.1f/bps", $received_size/(($time_now-$request_time)||1)
         if $received_size;
    }