#!/usr/bin/perl -w
$|++;


use HTTP::Request::Common;
use LWP::UserAgent;

$ua = LWP::UserAgent->new;

my $file = 'fulldata';
open(FILE,"fulldata") || die "Could not open $file: $!";
while (<FILE>) {
        ($ip) = (split /:/) [0];
                if (/^192.168./) {
                chomp;

                $ua->request (POST 'http://domain.org/subgmit.cgi',
                        [ip    => "$_",
                        email => 'the_dude@dommain.net'
                                        ]);
}
last
}
close(INFO) or die "Error writing $file: $!";