sub get_text {
   my $out_fh=shift #what filehandle to write to  
   while (<>) { # read a line at a time into $_