With 5.6, there's no need to use gensym() either:

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