use strict;
use warnings;
use Win32::GuiTest qw(:ALL);

my @window=FindWindowLike(undef,"Book1.xlsx - Excel");
sleep 2;
SetForegroundWindow($window[0]);
sleep 2;
MenuSelect("&File|&Save");
sleep 2;