use CGI::Carp qw(fatalsToBrowser);
BEGIN {
  print CGI::header();
  open (STDERR, '>>mylog.log');
}
[download]

1. The server-side end of things is messed up, and the script can't even run. If this is the case, you need to make sure that all the files are mode 755 (chmod 0755 as an FTP command should work on prohosting, if i remember right); make sure the script is in the appropriate cgi-bin directory, and so on. You could try installing Apache on your own computer, and playing around with stuff there, to see how the server-configuration end of things works. (This assumes you're using a unix-ish OS that supports the idea of file permissions.)

2. Your script doesn't work well on their server. If this is the case, do the following:

use CGI::Carp qw(fatalsToBrowser);
[download]

have you tried running from a commandline and passing the param's? at least you can determine exaclty what is being outputted without leaning on the error logs.

./scriptname name=value talk=another value
[download]

since you are opening the TAG file for write, could very well be a permissions issue. of course, running commandline locally won't debug that issue.

I don't see a header written in errorHTML or prior to it's potential invocation, you might want to place a header call or the equivilent Content-type line(s) to force the message to the browser.

keep in mind it's 11pm and I have been partaking in some wonderful wine tonite...so some sort of disclaimer is more than appropriate :-)

#!/usr/bin/perl -w
# can't use -T because I use the rename function :(
use CGI qw/param textarea textfield header submit start_form end_form/
+;
#use CGI::Carp;
use strict;
#use diagnostics;

print header;
my $name = param('name');
my $said = param('talk');
my $file = 'tagbox';my $ext ='.txt';
my $full = $file.$ext;

if($name && $said){

    if(defined($name && $said)){
                $said =~ s/`/\'/g;
                $name =~ s/`/\'/g;
                   open TAG,">>$full" || errorHTML("Couldn't open the 
+file because $!");
                print TAG $name,"`",$said,"\n"; 
                close(TAG) || errorHTML("Shiznit");

    }
}


my (@array, @array2,);


if( -e $full){    
    open TAG2,"<$full" || errorHTML("Damn it!");
    @array = <TAG2>;
    close(TAG2) || errorHTML("Fsck!");
}



if(@array){ #make sure there are some posts...
    foreach(@array){
        my ($name,$said) = split/`/;
        push @array2,"$name - $said";
    }
    if($#array2 > 24){
        for my $i(1..100){
            my $file2 = $file.$i;
            my $file3 = $file2.$ext;
            if(-e $file3){ 
                next;
            }else{
                rename($full,$file3);
            }
        }
    }
    $ENV{SCRIPT_NAME} =~ s/.*\/(.*\.(pl|cgi))/$1/i; # greediness can b
+e good, occasionally
    print start_form(-action=>"$ENV{SCRIPT_NAME}");
    print qq!<textarea name="" rows=15 cols=25 style='font-size:8pt' r
+eadonly>!;
    print @array2;
    print qq(</textarea>\n<Br/>);
    print "Name:\n",textfield(-name=>'name',-value=>$name,-maxlength=>
+10,-style=>'font-size:8pt'),"<BR>\n\n";
    print "Shit:&nbsp;&nbsp;&nbsp;\n","<input type=text name='talk' va
+lue='' maxlength=50 style='font-size:8pt'>\n\n";
    print submit(-name=>'',-value=>'Tag the thing');
    print end_form;
}else{
    print "There are no posts.  Make one yourself.";
    print "<BR><BR>\n\n";
    print start_form(-action=>"$ENV{SCRIPT_NAME}");
    print "Name:\n",textfield(-name=>'name',-value=>$name,-maxlength=>
+10,-style=>'font-size:8pt'),"<BR>\n\n";
    print "Shit:&nbsp;&nbsp;&nbsp;\n","<input type=text name='talk' va
+lue='' maxlength=50 style='font-size:8pt'>\n\n";
    print submit(-name=>'',-value=>'Tag the thing');
    print end_form;
}

sub errorHTML{print "<H1>Error!</h1>\n<BR>\n<BR>\n@_";}
[download]