open my $fh, '>', $filename or die "Can't open $filename: $!";