Select Code to Download

my $Range = $Sheet->Range("B1:D$row");
    
...
                  
      $Book->SaveAs('C:\\Graph.xls');
     $Book->Close({SaveChanges=>0});

$AgeChart->TickLabels->Font->{Size}=6;