RosettaCodeData/Task/Web-scraping/Perl-6/web-scraping.pl6

use HTTP::Client; # https://github.com/supernovus/perl6-http-client/
my $site = "http://tycho.usno.navy.mil/cgi-bin/timer.pl";
HTTP::Client.new.get($site).content.match(/'<BR>'( .+? <ws> UTC )/)[0].say
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`use HTTP::Client; # https://github.com/supernovus/perl6-http-client/`
all tasks 2013-04-11 01:07:29 -07:00			`my $site = "http://tycho.usno.navy.mil/cgi-bin/timer.pl";`
2016 Update 2016-12-05 22:15:40 +01:00			`HTTP::Client.new.get($site).content.match(/'<BR>'( .+? <ws> UTC )/)[0].say`