use Win32::Env::Path;
  
  my $path = Win32::Env::Path->new(
      name => 'PATH',
  );
  
  $path->add('C:\\strawberry');