print "$ENV{PATH} "."\n"; my $install_path = "c:\\bin"; if( !($ENV{PATH} =~ /c:\\bin/i) ) { print "1 "."\n"; $ENV{PATH} .= ";$install_path"; print "$ENV{PATH} "."\n"; }