prefix=
do_echo=

while getopts p:e opt
do
	case $opt in
	p) prefix="$OPTARG";;
	e) do_echo=1;;
	esac
done
shift $(( $OPTIND - 1 ))

QUERY="$1"
shift

for host in $*
do
	query `dsn mysql sina $host` "$QUERY" > "$prefix$host" &
done
wait

if [ "$do_echo" ]
then
	catn `for A in $*; do echo $prefix$A; done` |
		perl -pe 'BEGIN {$l = length "'$prefix'"} $_ = substr $_, $l'
fi