open my $filehandle, '>', $file or die "$file: $!\n";