if ( $addr =~ /\./ ) { print "IPv4" }
else { print "IPv6" }