Select Code to Download

#!/usr/bin/perl

...
   close(H);
   printf("%s: %s\n", $_, $b);
}

larry
curley
moe

./test.pl <hosts

larry:  22:20:46 up 53 days,  1:27,  1 user,  load average: 0.06, 0.04
+, 0.05
curley:  22:20:46 up 67 days,  7:56,  1 user,  load average: 0.07, 0.0
+5, 0.05
moe:  22:20:47 up 12 days,  11:22,  1 user,  load average: 0.04, 0.04,
+ 0.05

 
   $b = <H>;
   close(H);