#!/usr/bin/perl -w
use strict;

my $Registry;
use Win32::TieRegistry ( TiedRef=>\$Registry, Delimiter=>"/", ArrayValues=>1 );

my $env= $Registry->{"LMachine/System/CurrentControlSet/Control/".
                     "Session Manager/Environment/"}
	or  die "Can't open CCS/SM/Env: $^E\n";
my $path= $env->{"/PATH"}
  or die "Can't get PATH: $^E\n"
$path->[0]= "C:\Perl\bin;$path->[0]";
$env->{"/PATH"}= $path
  or die "Can't set PATH: $^E\n"