Select Code to Download

$message  = join('|', $usertype, $username, $date, $comments);
$message .= "\n";
...
open ("post", "/absolute/path/to/file") or print error;
print post $message;
close (post);

open ("post", "/absolute/path/to/file") or print error;
@post = <post>;
...
       |;
 }
}