or download this
/^Received[^\[]+\[(\d+).(\d+).(\d+).(\d+)]/?`host $4.$3.
$2.$1.$ARGV[0] 2>&1`=~/$ARGV[1]/m&&exit 0:1while<STDIN>;
...
while(<STDIN>){s/^Received[^\[]+//&&s/].*//?($_='host '
.(join'.',(reverse map{s/(\D+)//;$_}split/\./),$ARGV[0]
).' 2>&1',`$_`=~/$ARGV[1]/m&&exit 0):1}exit 1