Select Code to Download

use Socket;
use IO::Socket;
...
use Tk::Table;
use Tk::ProgressBarPlus;
use LWP::UserAgent;

#! perl -slw
use strict;
...
} ->detach for 1 .. 100;

printf "Took %f seconds\n", time() - $start;