20       open my $OUT, '>', "$out.out";

26       while  (my $line = <$IN>){

79       print "$out is done\n";