$SIG{INT} = sub { cleanup(); die "Caught interrupt"; };

... (main code) ...

cleanup();

sub cleanup {
  $Book->Save();  
  $Book->Close();
  $Excel->Quit();
}