my (@from_server,$from_user);
while (my $from_user = <>) { # a simple "GET" command
    print $socket $from_user;
    my @from_server = <$socket>;
    print @from_server;

}
close $socket;