$uptime=`cat /proc/uptime`;
print ref(\$uptime)," $uptime\n";
$uptime =~ s/\s.*//;
print ref(\$uptime)," $uptime\n";