Welcome, guest | Sign In | My Account | Store | Cart
#!/usr/bin/perl
use LWP::Simple;

if ((get "http://internet.yandex.ru/") =~ /(IPv4: ((\d+)\.){3}\d+)/) {
   print($&, "\n");
}

History