#!/usr/bin/perl
use strict;
use warnings;

my $tag = shift;

while (<>)
{
    print "$tag: $_";
}

##</code><code>##

for host in foo bar baz
do
  ssh $host "update-metadata" 2>&1 > /dev/null | taglines $host &
done