printf "# Workbookcount: %d\n", $Excel->Workbooks->Count;
$Book->Close;
my $Count = $Excel->Workbooks->Count;
print "# Workbookcount: $Count\n";