Well, using Date::Calc, I sort of put together a workaround for my problem.

my $OutCell = ref $cell ?
    $cell->Value : '';

# Dealing with Mangled Dates
if ( $OutCell =~ /M\//)
{
    
    
    my($datetime);
    $datetime = $cell->{Val};
    my ($Dd,$Dh,$Dm,$Ds) = ($datetime =~ /(\d+)\.(\d\d)(\d\d)(\d\d)/);
    my ($year,$month,$day, $hour,$min,$sec) =
        Add_Delta_DHMS(1900,1,1, 0,0,0, $Dd,$Dh,$Dm,$Ds);
                    
    $OutCell = $month . "-" . $day . "-" . $year ;
                    
                    
}
[download]

This puts the date into a format that can be read elsewhere. Not exactly the best fix, but hey.