open( FOO, "> foo" ) or die( "End of foo is nigh : $!" );
select FOO;         # Hang on, isn't 'select' for networking?
call_legacy_code(); # Hehe, output goes to foo
exit 0;

sub legacy_code {
  # Heh...print to the screen
  print "I 0wn j000!\n";
}