#!/usr/bin/perl

use strict;
use warnings FATAL => 'all';
use feature 'say';
use utf8;
use open qw(:std :utf8);

use DateTime;


my $min_mon  = DateTime->new(
   year       => 1964,
   month      => 3,
   day        => 16,
   hour       => 16,
   minute     => 12,
   second     => 47,
   nanosecond => 500000000,
   time_zone  => 'Asia/Taipei',
);

$min_mon->set_locale('de-AT');

open(my $MONTHLY_FH, ">", "output.txt") or die $!;

say $min_mon->month_name;

print {$MONTHLY_FH} $min_mon->month_name . " " . $min_mon->year . ",\n";