sub pprint;

pprint # ...

sub pprint {

   # ...

   print FILEHANDLE @_;
   print @_; 

}