#!/bin/sh

for IP in $* ; do
	if [ $(perl -e "exit(${IP} =~ /^\d+\.\d+\.\d+\.\d+\$/ ? 1 : 0)") ] ; then # "
		geoiplookup6 ${IP}
	else
#		geoiplookup6 $(IPv4-to-IPv6.pl ${IP})
		geoiplookup6 ::ffff:${IP})
	fi
done