#!/usr/bin/perl

while (<STDIN>) {
   chomp;
   open(H, "ssh $_ 'uptime' 2>&1 |");
   $b = <H>;
   close(H);
   printf("%s: %s\n", $_, $b);
}