Help for this page

Select Code to Download

Select or download this

use IO::Socket;
my $sock = new IO::Socket::INET("$remote_server:43") || 
               die $!;
...
  # sleep for the PERIOD, minus the DURATION
  sleep( int(43200 / $n) - ( time() - $time) );
}