#!/usr/bin/perl
use CGI;
use LWP::Simple;
###############################################
# myip.pl keeping track of DHCP assigned IP
# kishan@hackorama.com http://www.hackorama.com
###############################################
$ip_file="/var/htdocs/newip.shtml";
$q = new CGI;
$ip  = $q->param('ip');  
chomp $ip;
print "Content-type: text/html\n\n";
open ( FILE, ">$ip_file") || exit;
flock ( FILE , 2) or die "ERROR: $!";
print FILE "$ip";
close( FILE );	
print "OK";