Select Code to Download

#!/usr/bin/perl
use threads;
...
        sleep(10);
    }
}

#!/usr/bin/perl
use IO::Socket::INET;
...
        $s->accept();
    }
}