#!/usr/bin/env perl
#
# Name: req_timestamp.perl 
#
# Description: 
#
#   Prints a timestamp on STDOUT for use by makereq.sh in generating
#   a filename for a sample OTFC request. 
#
#------------------------------------------------------------------------------
#
    sleep 1;  # pause to create unique timestamps

    # format timestamp YYMMDDHHMMSS
    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
    $timestamp = sprintf("%02d%02d%02d%02d%02d%02d",
                          $year,$mon+1,$mday,$hour,$min,$sec);
    printf"$timestamp\n";