perl/timeout.pl

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use LWP::Simple;
   5 use Time::HiRes qw(alarm ualarm);
   6
   7 while(1) {
   8         $SIG{ALRM} = sub {
   9                 alarm(1);
  10                 print("again\n");
  11                 getprint('http://192.168.2.1:2/');
  12                 #print get('http://192.168.2.1:2/');
  13         };
  14         alarm(1);
  15         sleep(1);
  16 }