Reorganize directory

perl_scratch.pl

@@ -0,0 +1,13 @@
+#!/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";