use OLE::Storage::Property;
  use strict;

  my $clsid = $Doc->clsid($pps);
  die "not a scalar property" unless is_scalar($clsid);
  print "CLSID => ".$clsid->string."\n";