use Socket;

# open and read who here

$addr = inet_aton($1) if m/\((.*)\)/;