open my $out, ">", $filename or die $!;