#!/usr/local/bin/perl

use strict;
use warnings;
use POSIX;
use Date::Manip;
use Data::Dumper;

my $now = ParseDate( "now" );
print "NOW: $now\n";
my $today = ParseDate( "-1 hour" );
print "today:$today\n";
        my $npadate = UnixDate( $today, "%Y%m%d" );
        #my $npahour = UnixDate( $today, "%H" );


        #they want file date/time in central time............
        print "TODAY II: $today\n";
        my $fd = Date_ConvTZ( $today, "EST", "CST" );
        print "FD: $fd\n";
        my $yest = DateCalc( $fd, "-1 day" );
        $yest = UnixDate( $yest, "%Y%m%d" );
        print "yest:$yest\n";
        my $filedate = UnixDate( $fd, "%Y%m%d" );
        my $filehour = UnixDate( $fd, "%H" );
        print "filedate:$filedate, filehour:$filehour\n";