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