use strict;
use warnings;
use Date::Calc qw/Add_Delta_Days/;

my $delta = 72583;
my ($year,$month,$day) = Add_Delta_Days(1800,12,28,$delta);

printf "%4d%02s%02s",$year,$month,$day;