#!/usr/bin/perl

chomp($host = `hostname`);
($dummy,$dummy,$dummy,$dummy,@addrs) = gethostbyname($host);
$myip=sprintf("%s.%s.%s.%s", unpack('CCCC', $addrs[0]));
print "$myip\n";
