$message  = join('|', $usertype, $username, $date, $comments);
$message .= "\n";

open ("post", "/absolute/path/to/file") or print error;
print post $message;
close (post);