Select Code to Download

  # Get the name of the file and an 
  #  open file handle to the file contents
...
  while ($line = <$filename>) {
    print $line;
  }

  # Get the name of the file and an 
  #  open file handle to the file contents
...
    print OUTFILE $buffer;
  }
  close $filename;