OK, your program is not emitting any output that will be transmitted back to the browser so at the very least you will need to do something like:
#!/usr/bin/perl -wT
use strict;
use CGI;
my $q = new CGI;
my $quote = $q->param("submitedquote");
print $q->header();
open FILE, ">>rqhold.dat" or die "Can't open rqhold.dat: $!\n";
print FILE $quote, "\n";
close FILE;
print start_html(),h1('Thanks for that!),end_html();
If you really don't want to output anything you could omit all the print statements I have added and either redirect to the original page with something like:
print $q->redirect('/whatever.html'); # your page here
or tell the browser you are not going to send any output by sending the 304 (not modified) status like:
print $q->header(-status => 304);
And then print nothing else to STDOUT. Of course this should strictly be done only in response to a GET request if one is going to follow the letter of the HTTP spec.
/J\ |