my $date = Date::EzDate->new(); $date->{yeartwodigits} = 11; $date->{yeardaybase1} = 32; $date->{'myformat'} = '{year}{month number base 1}{day of month}'; print $date->{'myformat'};