open (IN,"$cdatfile2") || &error("国データファイルが開けませんでした",1); @cdat2 = <IN>; close(IN) or die "Can't close : $!";
open (AUT,">>$cdatfile2") || &error("open error:$cdatfile2",1); print AUT $cdat2; close(AUT) or die "Can't close : $!";