#!/usr/bin/perl -w
use threads; ######################## Added
my $socket;
my $port = 7777;
my $host;

use IO::Socket;
use Sys::Hostname;

$host = hostname();

my $sock = new IO::Socket::INET(
                         LocalHost => $host,
                         LocalPort => $port,
                         Proto => 'tcp',
                         Listen => 5,
                         Reuse => 1,
                         );

if (!$sock){
     die "no socket :$!";
}


my($new_sock, $c_addr, $buf);
#open($log, '>>', 'log.txt') || die "Couldn't open log.txt: $!";
while (($new_sock, $c_addr) = $sock->accept())
{
  async { ################## Added
  my ($client_port, $c_ip) =sockaddr_in($c_addr);
  my $client_ipnum = inet_ntoa($c_ip);
  my $client_host =gethostbyaddr($c_ip, AF_INET);
  print "got a connection from: $client_host"," [$client_ipnum] ";

  while (defined ($buf = <$new_sock>))
 {
  open ($log, '>>','log.txt') || die "Couldn't open log.txt: $!";

  print $buf;
  print $log $buf;
  close $log;
 }
 } ########################## Added
}