#!/usr/bin/env perl

use Modern::Perl;
use DateTime;

say "Date Time formatting tests";

my $dt_now    = DateTime->now( time_zone => 'local' );
say "Datetime now is $dt_now";
my $date      = $dt_now->ymd('');
# yymmdd_hhmmss
my $dt        = $date . '_' . $dt_now->hms('');
say "Datetime is $dt";