#!/usr/bin/perl use DBI; use POSIX; $serip=`ifconfig |grep 'inet addr'`; @serip=split('\n', $serip);@serip=split(' ',$serip[0]);$sip=$serip[1];@serip=split('\.',$serip[1]); $sid=$serip[3]; $sip =~ s/addr://; print "ServerIP : $sip ServerID= $sid\n";