three argument open

#!/usr/bin/env perl

use v5.16;
use warnings;

my $name = shift;

my $OFH = *STDERR;

if (defined $name) {
    if ( $name eq 'stdout' ) {
        $OFH = *STDOUT;
    } else {
        open $OFH, '>', $name or die "$name: $!";
    }
}

say {$OFH} "hello";