#!/usr/bin/perl

# test client for the server

my $tm = rand_in_range(1,60);
print "$0 [$$] sleeping for $tm\n";
sleep $tm;
exit 0;

sub rand_in_range ($$) {
   # given a low, high value pair, return a random integer between them
   my ($hi, $lo) = sort  { $a <=> $b } @_;
   return int ((rand() * ($hi - $lo)) + $lo);
}