e32env.pl error

Hello,

Today I noticed following error:
When there is no c:\windows\system32 (maybe without c:\)in environment 
PATH variable following PERL code used in e32env.pl will fail(at least 
on my machine win xp home sp2, active perl 5.8.6):
  	open PIPE, "set EPOCROOT |";
	my $found=0;
	while (<PIPE>) {
		if (/^EPOCROOT=.*/) {
			$found=1;
			last;
		}
	}
	close PIPE;
	die "EPOCROOT environment variable must be capitalised\n" if
(!$found);

Result is that opening pipe would fail. There is no error handling in 
case of unsuccessful open...