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