use v5.14;
use Socket;

$| = 1;
my $user_name = 'default';

socket(SERVER,PF_INET,SOCK_STREAM,getprotobyname('tcp'));
my $iaddr = inet_aton('localhost'); 
my $packed_addr = sockaddr_in(5555, $iaddr); 
connect(SERVER,$packed_addr) or die "Cant connect: $!\n";

print STDERR "[Connected to server as \"$user_name\"];    \tfor a list of commands type /help\n";
send(SERVER,$user_name,1);                                           

if(my $pid = fork){                                                   
  while (1){	
    print "Send: ";
    chomp(my $data = <STDIN>);
    send(SERVER,$data,1);   
  } 
}
else{ 
    while(1){
        if( recv(SERVER,my $info,1024,0) ){
           say $info;
        }
    }
}