... | perl -pe "BEGIN { $a = shift } s/^/$a: /" $host