open my $foo, ">>bar" || die "Can't write to bar : $!\n";

sub print2 {
    my $fh = shift;
    print STDOUT "$_[0]";
    print $fh "$_[0]";
}

### needs a comma, unlike print()
print2 $foo, "Hello, world!\n";