my $Book = $Excel->ActiveWorkbook;
my $filename = $Book->{Name}; # or $Book->Name??