use Win32::OLE qw(with);
use Win32::OLE::Variant;


my $vtfalse =  Variant(VT_BOOL, 0);  
my $vtpages =  Variant(VT_I4, 1);  
with ($sheet->PageSetup,
  'Zoom'           => $vtfalse,
  'FitToPagesWide' => $vtpages,
  'FitToPagesTall' => $vtpages );