$time = time();
$odd  = time * 1000;
print "$time|$odd\n";

print "2**31 is ", 2**31, "\n";
$time1000 = $time *1000;
$time1000 %= 2**31;
print "Here is our number: $time1000\n";
print "End of *nix epoch is at: ", scalar gmtime (2**31-1)