#!/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();