#!/usr/bin/perl -wT

use strict;
use CGI;

my $q = new CGI;

my $quote = $q->param("quote");

open FILE, ">>rqhold.dat" or die "Can't open rqhold.dat: $!\n";
print FILE $quote, "\n";
close FILE;