sub set_tslaunch_env {
    my $env_file = shift;
	chomp($env_file);
	print "\n\nfile is $env_file\n";
	if (-f $env_file)
	{
		print "\nfile is there\n";
	}
	
    if (open ENV_FILE, $env_file) {
	print "\nfile is opened\n";
	close(ENV_FILE);
	print "\nfile is closed\n";
	exit;
        while(<ENV_FILE>) {
            chomp;
            my @values = split(/=/, $_);
            if (grep (m"^$values[0]$", @allowable_env_vars)) {
                my $old_val = $values[1];
                my $share_name = $config->{local_nt_drive};
                $share_name =~ s/://g;
                $values[1] =~ s/$config->{local_nt_drive}/\\\\${local_machine}\\$share_name/g;
                if ($values[0] eq 'PATH') {
                   $values[1] = $ENV{PATH} . ';' . $values[1];
                }

                print "env var $values[0] has been set to: $values[1]. prev value was: $old_val\n";
                $ENV{$values[0]}=$values[1];
            }

        }
        close ENV_FILE;
    } else {
        die "Unable to open file $env_file in order to read the env settings: $!\n";
    }
}

my $debug_dir=$ARGV[0];
set_tslaunch_env("$debug_dir\\tslaunch_tsd3_retail_connected_env.log");