my ($init, $max) = (256, 301);
for (in($PageFiles)) {
  showProperties($_);
 	$_->{InitialSize} = $init;
 	$_->{MaximumSize} = $max;
	$_->LetProperty('InitialSize', $init);
	$_->LetProperty('MaximumSize', $max);
	$_->SetProperty(InitialSize => $init);
	$_->SetProperty(MaximumSize => $max);
	$_->Put_()   # with UNDERSCORE in method name
	  and print "3 Put_: "     . Win32::OLE->LastError . "\n\n";
  last;  # just change 1st one
}

##</code><code>##

#my $PageFiles = $wmiService->ExecQuery("Select * from Win32_PageFileSetting");
my $PageFiles = $wmiService->InstancesOf("Win32_PageFileSetting");