#!/usr/bin/perl -w

#run this from /etc/rc.d/rc.local to have your ip posted
#to the net somewhere, so that when you start a machine, you
#know where it is on the net.
#comments, and suggestions are welcome.

use strict;
use Net::FTP;

my $server="someserver.com";
my $user="username";
my $password="notarealpassword";
my $dir="www";
my $file="/tmp/ipinfo";

my $ftp;

`ifconfig > /tmp/ipinfo`;

$ftp=Net::FTP->new($server);
$ftp->login($user, $password);
$ftp->cwd($dir);
$ftp->put($file);
$ftp->quit;