#/usr/bin/perl -w
use strict;
use CGI;
my $q = new CGI;

print $q->header();
my $err = do_something();
print $err ? $err : "OK";

sub do_something { 
for (my $i=0;$i<20;$i++ {
    print "\7";
   }
}


##</code><code>##

#!/usr/bin/perl -w 
use strict;
use LWP::Simple

#while (1) {
#    if ( some_event() ) {
        my $response = get('http://192.168.0.123/cgi-bin/servert.pl');
        warn $response =~ m/OK/ ? "Notified server b OK\n" : "$response\n";
#    }
    sleep 10;
#}

# check for some event
#sub some_event { ... }


##</code><code>##

Use of uninitialized value in pattern match (m//) at clientt.pl line 10. <br>
Use of uninitialized value in concatenation (.) or string at clientt.pl line 10<br>