BF
Size: a a a
BF
SZ
BF
P
SZ
BF
A
SZ
SZ
MG
SZ
MG
SZ
MG
SZ
SZ
MG
IB
IB
#!/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";
SZ