#!/usr/bin/perl
#Client Script
use strict;
use IO::Socket;

print "Content-type:text/html\n\n";

my $server="192.168.0.101";
my $server_port=23;
my $nodeName = "192.168.0.101";
my $sock = new IO::Socket::INET (PeerAddr =>$server,
                              PeerPort => $server_port ,
                              Proto    => 'tcp',
                             ) or do_exit("Couldn't connect to $server:$server_port.\n");

print $sock "ping:$nodeName\n";
while(my $server_response=(<$sock>)) {
    chomp($server_response);
    print "Server said: $server_response<BR>" if($server_response);
    if($server_response eq "MOK") {
        exit(0);
    }
}

sub do_exit {
    my $err_msg=$_[0];
    print "$err_msg";
    exit(1);
}