path: root/now.pl

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

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