($fh, $filename) = tempfile($template, DIR => $dir) or die " $progname: Error creating $filename: $!";