As I recall (no Win32 box to test on), to turn a variant into a normal Perl value, you need to use one of the methods in
Win32::OLE::Variant. In your example it looks like the
Date method might be the appropriate one, though for starters you can try just
Value to see what it says.