Select Code to Download

     print "Path-Name: $file\n",
           "Document-Type: TXT*\n",
           "Content-Length: $size\n\n";
     print $data;