Select Code to Download

use Date::Manip::Date; 
$d = Date::Manip::Date->new; 
...
    print substr $d->printf("%j%a%p%h" x 4), -$_, 1; 
} 
print "\n";

use Date::Manip::Date; 
$d = Date::Manip::Date->new([setdate => "2023020700:00:00,UTC"]); 
...
    print substr $d->printf("%j%a%p%h" x 4), -$_, 1; 
} 
print "\n";