#!/usr/bin/perl
use strict;
use warnings;

use IO::Socket; 

my $sock = new IO::Socket::INET ( 
  LocalPort => '17071', 
  Proto => 'tcp', 
  Listen => 1, 
  Reuse => 1, 
  );
die "Could not create socket: $!\n" unless $sock;

my $new_sock = $sock->accept(); 
while(<$new_sock>) 
{ 
  my $command = $_;
  chomp($command);
  $command = lc($command);

  if($command eq "exit")
  {
    print "EXITING"; 
  }

  print $command,"\n"; 
} 
print "Closing Socket...";
close($sock);
print "Soocket Closed";