my $end = $wantunix ? 'unix' : 'crlf';
open my $out, ">:$end", 'outputfile' or die $!;