> perl
use strict;
use warnings;
use diagnostics;

sub myprint {
  my( $fh, $text ) = @_;
  print $fh $text;
}

sub STDOUT {
  print "Woops!\n";
}

myprint( *STDOUT, "Hello world!\n" );
__END__
Hello world!
>