#!/usr/bin/perl
require "cgi-lib.pl";
&ReadParse;
        
$mailprog = '/usr/sbin/sendmail';

# ...omitted cruft
        
open(FILE, ">>somefile.txt") || die "Can't find thedatabase\n";
print FILE "$in{'itemName'}|$in{'itemDate'}|etc..etc..\n";
close(FILE);

# ...more code passes

open (MAIL, "|$mailprog -t") || die "Can't open mail program\n";
print MAIL "misc hard-coded email header stuff here\n";
# ...etc, etc.
print MAIL "Name: $in{'myName'}\n";
print MAIL "Contact Information: $in{'contact'}\n";
# ...more of same
close(MAIL);
# ...