[mirrors/Programs.git] / perl / timeout.pl

#!/usr/bin/env perl
use strict;
use warnings;
use LWP::Simple;
use Time::HiRes qw(alarm ualarm);

while(1) {
	$SIG{ALRM} = sub {
		alarm(1);
		print("again\n");
		getprint('http://192.168.2.1:2/');
		#print get('http://192.168.2.1:2/');
	};
	alarm(1);
	sleep(1);
}
Commit	Line	Data
21c4e167 H	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	}