my $info = `uptime`;
($avg_1, $avg_5, $avg_15) = $info =~ /load average:\s+(\S+),\s+(\S+),\s+(\S+)/;
print "$avg_1, $avg_5, $avg_15\n";