my $mypath = 'C:\\Winnt\\system32';
$ENV{PATH} .= ';' . $mypath;