#!/usr/bin/perl
# 改行コード変換プログラム MSーDOS to UNIX

system("mkdir enc");

while($file = glob("*.cgi")) {
     print "$file\n";

        open(IN, $file);
        open(OUT, "> ./enc/$file");
          binmode(OUT);
            while (<IN>) {
              s/[\r\n]*$//;
              print OUT "$_\n";
            }
          close(IN);
          close(OUT);

}