perl -e ' 
$load=`uptime`; 
$load=~m/load\s+average:\s+([\d]+)/;
print "$1\n";
'