open my $fh, '>', $outfile or die $!;
binmode $fh;
# in datei schreiben