use strict;
use warnings;
use diagnostics;
use Win32::OLE;

my $xl = Win32::OLE->new('Excel.Application');
$xl->{Visible} = 1;
my $wb = $xl->Workbooks->Add();
for (2..$wb->Sheets->{Count}) {
    $wb->Sheets(2)->Delete;
}

my $cell = $wb->Sheets(1)->Cells(1,1);
$cell->{Value} = '1/1/1';
my $v  = $cell->Value;
my $v2 = $cell->{Value2};
print "$$v $v2\n";

$cell->{Value} = '\'1/1/1';
$v  = $cell->Value;
$v2 = $cell->{Value2};
print "$v $v2\n";