diff --git a/mycp/mycp b/mycp/mycp
index 52a2040..a3f6e78 100755
--- a/mycp/mycp
+++ b/mycp/mycp
@@ -185,11 +185,13 @@ sub inperms($) {
 	print "$mode:$user:$group:$fullname\n";
 
 	unless ( -f $permsfile ) {
-		print <<EOT;
+		open FH, ">$permsfile";
+		print FH <<EOT;
 # \$Id\$
 # \$Source\$
 
 EOT
+		close FH;
 		system("$cvscmd add $permsfile");
 		system("$cvscmd ci -m initial $permsfile");
 	}