my $pwd = cwd();
	my $newDIR ="/users/sophix/Desktop/prottest3/prottest3/";
	chdir $newDIR or die "Hmm\n";
	my $currdir = cwd();