my $dateVar = $worksheet->Cells( $row, $col )->{Value};
if ( ref $dateVar ) {
   $theDate = $dateVar->ChangeType(VT_BSTR)->Value();
}