#!/usr/bin/perl use Crypt::GPG; use CGI qw(:standard); my $gpg = new Crypt::GPG; $gpg->gpgbin('/usr/bin/gpg'); # The GnuPG executable $to='fake@name.com'; $from= 'fakefake@name.com'; $subject='request'; $ptext = "Primary Applicant:\nOptical Carrier); @ctext = $gpg->encrypt( $ptext, $to ); open(MAIL, "|/usr/sbin/sendmail -t"); print MAIL "To: $to\n"; print MAIL "From: $from\n"; print MAIL "Subject: $subject\n\n"; print MAIL $ctext[0]; close(MAIL); print < Thank you!

Thank you!

Your application received, an encrypted message emailed out to Me:
$ctext[0]
You can expect to hear from me soon!

END