open ( OUTFILE, '>myfilename.txt' );
  print "This goes to the screen\n";
  select ( OUTFILE );
  print "This goes to the file\n";

##</code><code>##

  open ( OUTFILE, '>myfilename.txt' );
  print "This goes to the screen\n";
  *STDOUT = *OUTFILE;
  print "This goes to the file\n";