#!/usr/local/bin/perl

#full path to the guestbook file where users will go
$guestb_loc = "http://nytesoft.hypermart.net/cgi-bin/test/guestbook.html";

#translate to <br> for a better look


#open guestbook file and append to the end of it
open(GUEST, ">>$guestb_loc");

#print information
print GUEST "\n<UL>\n";
print GUEST "{'comments'}";
print GUEST "\n<b>{'name'}<br>\n";
print GUEST "{'location'}</b><br>\n";

close (GUEST);

open(FILE, ">$target");
print FILE "any data to print";
close (FILE);