path: root/now.pl

#!/usr/bin/perl
#ident "$Id$"
#
# Print the time as a hexadecimal integer
#

printf "0x%08x\n", time;