use Time::Local 'timelocal_nocheck';

    my $year  = 2003 - 1900;
    my $dyear = 176;
    my $epoch = timelocal_nocheck 0,0,0,$dyear,0,$year;
                         ## January is month 0 ^