X:\Data\Perl>1145425.pl
$VAR1 = bless( do{\(my $o = 40621128)}, 'Win32::OLE::Variant' );
$VAR1 = bless( do{\(my $o = 40621128)}, 'Win32::OLE::Variant' );