6 lines
126 B
Perl
6 lines
126 B
Perl
|
use LWP::Simple;
|
||
|
|
|
||
|
|
my $url = 'http://tycho.usno.navy.mil/cgi-bin/timer.pl';
|
||
|
|
get($url) =~ /<BR>(.+? UTC)/
|
||
|
|
and print "$1\n";
|