#!/usr/bin/perl -w
use strict;
for(;;) {
my ($a,$b,$c,$d) = (int(rand(256)),int(rand(256)),int(rand(256)),int(rand(256)));
next if $a == 127;
next if $a == 10;
next if $a == 172 and $b >= 16 and $b <= 31;
next if $a == 192 and $b == 168;
next if $a == 169 and $b == 254;
next if $d == 255;
next if $d == 0;
print "http://$a.$b.$c.$d/\n";
exit;
}