#!/usr/bin/perl -T
use warnings;
use strict;


use CGI;

# Create the CGI object
my $query = new CGI;

# Output the HTTP header
print $query->header ( );


# Capture the form results

my $email_address = $query->param("email_address");


# Email the form results

open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "From: $tracker\n";
print MAIL "To: portsmut\@navigator.com\n";
print MAIL "Subject: Form Submission\n\n";
print MAIL "\n.\n";
close ( MAIL );