open(TMP, "uptime.pl |") or die "$!";

while(<TMP>) {
 ($receiver,$uptime) = split;
 push @dataset, $uptime;
 push @labels, $receiver;
}

close TMP;

##</code><code>##

70CM 0
50CM  22
H-OH 0
MULTIBEAM  22
GALILEO 0
MULTIBAND 0
METHANOL  22
K-BAND 0

##</code><code>##

70CM 0
50CM 0
H-OH 0
MULTIBEAM 0
GALILEO 0
MULTIBAND 0
METHANOL 0
K-BAND 0