open my $fh, '>', $fname or die "Cannot open $fname - $!\n";