Unnamed

#!/usr/bin/perl -w

use LWP::UserAgent;
my $ext_if = "eth1";
$ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1");

my $req = HTTP::Request->new(POST => 'http://whatismyip.com');
$req->content_type('appliction/x-www-form-urlencoded');
$req->content('query=libwww-perl&mode=dist');
my $cur_ip = `/sbin/ip ad sh $ext_if|grep inet|grep -v inet6|awk '{print \$2}'|sed -e 's|\/[0-9][0-9]||g'`;
my $res = $ua->request($req);

if ($res->is_success) {
        if ($res->content =~ m/[$cur_ip]/) {
                print "MATCH";
                $res->content =~ m/[$cur_ip]/;
                print $1;

        } elsif ($res->content !~ m/[$cur_ip]/) {
                print "NOT MATCHED"
        }
} else {
        print $res->status_line, "\n";
}