use Win32::OLE;

my $application = Win32::OLE -> new "Excel.Application";
my $workbook = $application -> Workbooks -> Add;
my $worksheet = $workbook -> Worksheets(1);

$worksheet -> PageSetup -> {FitToPagesWide} = 1;
$worksheet -> PageSetup -> {FitToPagesTall} = 1;