use Socket;
#=================================================================
$var=0x0a0a0a01;   #simulate the value from the database
printf(STDERR  "DEBUG, var is %4.4x \n", $var);
print STDERR "DEBUG, var is $var\n";
$peer_addr = inet_ntoa($var);
print "DEBUG, $peer_addr";