Copy Guestbook to new directory and change variables.

Hello,
How do I copy guestbook.cgi to new directory and change variables in the guestbook to indicate the directory it is presently in?

For example;
#I read GUESTBOOK in present directory with GUESTBOOK_PROCESSOR. I copy it to new directory with GUESTCGI. I need to change variables:

$guestbookurl = "https://supersys2000.com/CYCLONE/index.html";
$guestbookreal = "/home/userid/public_html/CYCLONE/index.html";
$guestlog = "/home/userid/public_html/CYCLONE/guestlog.html";
$cgiurl = "https://www.supersys2000.com/CYCLONE/guestbook.cgi";
$counterlogurl = "https://supersys2000.com/CYCLONE/counterlog.html";
$counterlogreal = "/home/userid/public_html/CYCLONE/counterlog.html";

############To

$guestbookurl = "https://supersys2000.com/CYCLONE/$FORM{'user_id'}/index.html";
$guestbookreal = "/home/userid/public_html/CYCLONE/$FORM{'user_id'}/index.html";
$guestlog = "/home/userid/public_html/CYCLONE/$FORM{'user_id'}/guestlog.html";
$cgiurl = "https://www.supersys2000.com/CYCLONE/$FORM{'user_id'}/guestbook.cgi";
$counterlogurl = "https://supersys2000.com/CYCLONE/$FORM{'user_id'}/counterlog.html";
$counterlogreal = "/home/userid/public_html/CYCLONE/$FORM{'user_id'}/counterlog.html";


#####What do I do to the script below to make the changes in variables? SO GUESTBOOK WORKS IN PRESENT DIRECTORY. $FORM{'user_id'} is from addguest.html form. I use the input to create new directory.

########################################
mkdir( "$FORM{'user_id'}", 0755)  or dienice("Couldn't open $FORM{'user_id'} for writing: $!");

########################### Write to $FORM{'realname'}/survey.out############
open(QUESTF,">>/home/userid/public_html/CYCLONE/$FORM{'user_id'}/survey.out") or dienice("Couldn't open survey.out for writing: $!");

chmod 0644, "/home/userid/public_html/CYCLONE/$FORM{'user_id'}/survey.out";


close(QUESTF);

########################### Write to guestbook.cgi #############

open(GUESTBOOK_PROCESSOR, "guest_process4.txt") or dienice("Can't open guest_process4.txt: $! \n");

my $string = <GUESTBOOK_PROCESSOR>;

my @words = "$string";

open(GUESTCGI,">/home/userid/public_html/CYCLONE/$FORM{'user_id'}/guestbook.cgi") or dienice("Couldn't open guestbook.cgi for writing: $!");
while ($string = <GUESTBOOK_PROCESSOR>) {

chomp($string);

@words = "$string";

print "@words<br>\n";
print GUESTCGI "@words\n";
}

close(GUESTBOOK_PROCESSOR) or dienice( "Can't close guest_process4.txt: $! \n" );
close(GUESTCGI) or dienice( "Can't close guest_process.txt: $! \n" );Start Free Trial