two argument open

#!/usr/bin/env perl

use v5.16;
use warnings;

my $name = shift;

my $OFH = *STDERR;

if (defined $name) {
    # two-argument open: if $name is "-", then we'll dup STDOUT
    open $OFH, "> $name" or die "$name: $!";
}

say {$OFH} "hello";