Select Code to Download

C:\test>echo 92.103.2.204 | 874413.pl
92.103.2.204 allocated to user;552
...

C:\test>echo 2.103.2.204 | 874413.pl
1 lookups (0 found) in 0.008 seconds (0.008237/sec)

>perl -MList::Util=shuffle 
-nE"chomp(@i=shuffle<>); say +(split':')[0] for @i[0..1e3];last" ips.t
+xt 
|874413.pl >nul
1001 lookups (1001 found) in 0.456 seconds (0.000455/sec)

#! perl -slw
use strict;
...
my $taken = time() - $start;
warn sprintf "%d lookups ($found found) in %.3f seconds (%.6f/sec)\n",
+ 
    $., $taken, $taken / $.;