use Socket;
use IO::Socket;
use DBI;
use DBD::mysql;
use Tk;
use Tk::JPEG;
use Tk::Table;
use Tk::ProgressBarPlus;
use LWP::UserAgent;

##</code><code>##

#! perl -slw
use strict;

use Socket;
use IO::Socket;
use DBI;
use DBD::mysql;
use Tk;
use Tk::JPEG;
use Tk::Table;
use Tk::ProgressBarPlus;
use LWP::UserAgent;

use Time::HiRes qw[ time ];
use threads stack_size => 4096;

my $start = time;
async {
    #printf "%u starting\n", threads->tid;
    sleep 1e3
} ->detach for 1 .. 100;

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