perl Win32::OLE excel date

[caradomski]

I need help retrieving the date from excel using the Win32::OLE pm.
here is my program...

use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3; # die on
errors...
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
|| Win32::OLE->new('Excel.Application', 'Quit'); # get already
active Excel
# application or
open new
my $Book = $Excel->Workbooks->Open("C:\\TMP\\test1.xls"); # open Excel
file
my $Sheet = $Book->Worksheets(1); # select
worksheet number 1
my $array = $Sheet->Range("A15")->{'Value'}; # get the
contents
$Book->Close;
foreach my $ref_array (@$array) { # loop through
the array
# referenced by
$array
foreach my $scalar (@$ref_array) {
print "$scalar\t";
}
print "\n";
}

When ever the program prints a date from the excel file I get the
following results...

Win32::OLE::Variant=SCALAR(0x19f7b1c)

how do I get the program to print the date as 10/1/2006 ?

Please help!!!