#!/usr/local/bin/perl -w
use CGI qw(:standard);

$query = new CGI;

#Get information

@parameters = $query -> param;
$uname = $query -> param("uname");
$uage = $query -> param("uage");
$personemail = $query -> param("personemail");
$starsign = $query ->param("starsign");
$shortstory = $query -> param("shortstory");

#Mail to me

  $mailprog="/usr/lib/sendmail";
   open(MAIL, "|$mailprog -t") || die("Can't access 
        sendmail\n");   $recipient = 'm3-lewis@uwe.ac.uk, $email';
   print MAIL "To: $recipient,$personemail\n";   
   print MAIL "Subject: Entry to prize\n";
   print MAIL "$uname\n
               $uage\n
               $personemail\n
               $starsign\n
               $shortstory\n"; 
  close(MAIL);

#Show page

print header, start_html("- Gallop Oline -");

print "<p align=center><span class=normal>Thank you for entering $uname<br>
       Your Information has been e mailed to the webmaster</span></p>";

print end_html;