#server
#!/usr/bin/perl
use warnings;
use strict;
use IO::Socket;

my $SERVER = "Deadpickle-hobo";
my $SEND_PORT = 5152;
my $line;

my $send_socket = IO::Socket::INET->new(
                            PeerAddr => $SERVER,
                            PeerPort => $SEND_PORT, 
                            Proto => 'tcp',
                            Reuse => 1
) or die "socket: $@";

#ask for the user name and send it to the server
#in order to verifiy that its unique
print "Username:";
my $user = <>;
$send_socket->send($user);


$send_socket->recv($line, 80);
print $line;

$send_socket->recv($line, 80);
print $line;