sub open_file {
        my ($mode, $file) = @_;
        my $fh = gensym();
        open $fh, "$mode$file" or croak("could not open '$file': $!");
        return \*$fh;
}