or die("Unable to create \"$fname\": $!\n");