use strict;
use diagnostics;

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

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

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