title: Perl open file problem
body: <p>I am having some trouble trying to print from a file. Any ideas? Thanks</p>
  
  <pre><code>open(STDOUT,"&gt;/home/int420_101a05/shttpd/htdocs/receipt.html"); 
  #Results of a sub-routine
  &amp;printReceipt; 
  close(STDOUT);
  
  open(INF,"/home/int420_101a05/shttpd/htdocs/receipt.html"); $emailBody = &lt;INF&gt;; 
  close(INF); 
  print $emailBody;
  
  ERRORS: Filehandle STDOUT reopened as INF only for input at ./test.c line 6. 
  print() on closed filehandle STDOUT at ./test.c line 9.
  </code></pre>