#!/usr/local/bin/perl

use CGI;
$q = new CGI;

$fname= $q->param('fname');
$fname= $q->param('sname');
$initials = $q->param('initials');
$title = $q->param('title');

$mail = '1';
$mailprog = '/var/qmail/bin/qmail-inject';
$recipient = 'c.dyason@ponl.com';
$email = 'chrisdice4@yahoo.com';

if ($mail eq '1') {
open (MAIL, "|$mailprog $recipient") | | die "Can't open $mailprog!n";

print MAIL "Reply-to: $emailn";
print MAIL "From: $email n";
print MAIL "Subject: Bond Applicationnn";
print MAIL "Succesfull Bond Applicant:nn";
print MAIL "------------------------------------------------------n";
print MAIL "this is a testn";
print MAIL "this is a test";

if ( $fname ){
print MAIL " <$fname>";
}

print MAIL "n";

if ( $sname ){
print MAIL "<$sname>";
}

if ( $initials){
print MAIL " <$initials>";
}

if ( $initials){
print MAIL " <$title>";
}
}