moritz actually means 1900 so something like:

sub fixY2K {
     my $date = shift;
     return $date if $date > 1900;
     return $date + 1900 if $date > 30;
     warn "Assuming '$date' means 20$date!\n";
     return $date + 2000;
}
[download]