#!/usr/bin/perl

$load = `uptime`;
$name = `uname -n`;

chop($load);
$load=~ /.averages:.+, (.+),.+/;
$la=$1*100;

print "$la\n";
print "0\n";
print "$name\n";