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 | } |