#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;
use Net::FTP;
$| = 1;

print "Getting local ip...\n";
my $local_ip = qx/ifconfig eth0|grep -m 1 inet|awk {\'print \$2\'}|cut
+ -d \':\' -f2/;
chomp($local_ip);
print "Got local ip: $local_ip\n";
print "Getting remote ip...\n";
my $remote_ip;
my $url = "http://www.whatismyip.com/";
my $ua=new LWP::UserAgent;
my $request = new HTTP::Request('GET',$url);    # create the http requ
+est
my $response=$ua->request($request);    # perform the http request
my $whatisipsite = $response->as_string();      # store the response a
+s a string
if ($whatisipsite =~ /(Your ip is )+(.*?)( WhatIsMyIP.com)/) {  # pars
+e out the IP address
        $remote_ip = $2;
}
chomp($remote_ip);
print "Got remote ip: $remote_ip\n";
my $newipfound = 0;
open (my $infile, "myips") or die "Can't open file $!";
while (<$infile>) {
    if (/$local_ip|$remote_ip/) {
    } else {
      $newipfound = 1;
    }
}
close $infile;
if ($newipfound) {
    print "New ip found! Sending file to web site...\n";
    open (my $outfile , ">myips") or die "Can't open file $!";
    print $outfile "$local_ip\n$remote_ip\n";
    close $outfile;
    my $ftp = Net::FTP->new("www.techfeed.net", Debug => 1);
    $ftp->login("*****",'*****');
    $ftp->cwd("/private");
    $ftp->ascii();
    $ftp->put("myips","/private/myips") or die "put failed ", $ftp->me
+ssage;
    $ftp->quit;
    print "File sent!\n";
}
[download]