#!/bin/sh -e

for t in A AAAA ; do
    host -t $t $1 | perl -lane 'print $F[$#F]'
done