if ( $addr =~ /:/ ) { print "IPv6"; }
else { print "IPv4"; }