#!/usr/bin/perl -w
# hash
# Client:

use strict ;
use Socket ;
my $ok = 0 ;
# Define the door:
my $port =  7000 ;
# Define the host (IP number only):
my $host = 127.0.0.1 ;

sub welcome () {
print <<EOF
###################################################
#                 Connected                       #
#-------------------------------------------------#
#                 on server                       #
###################################################

 exit to logout...
EOF
}

while (1) {
my $sockaddr = sockaddr_in($port, $host) || die "sockaddr: $!";
my $proto = (getprotobyname('tcp')) || die "proto: $!";

socket(SO, AF_INET, SOCK_STREAM, $proto) || die "socket: $!";
connect(SO, $sockaddr) || die "connect: $!";
if ($? == 0) {
         $ok++ ;
        }
if ($ok == 1) {
&welcome () ;
        }
my $msg = <STDIN> ;
if ("$msg" eq "exit\n") {
        --$ok ;
        print "$ok commands are successfully executed on remote server\n" ;
        exit 0 ;
}
send(SO, "$msg", 1024,0);
while (<SO>) {
        print ;
        }
}
#EOF