if ($from eq $field18)
{
#build filename 
$tm=localtime;
($year,$month,$day)=($tm->year+1900, ($tm->mon)+1, $tm->mday);
($hour,$min,$sec)=($tm->hour, $tm->min, $tm->sec);
#$filename=$day.$month.$year.$hour.$min.$sec."\.txt";
$filename=$day.$month.$year.$hour.$min.$sec;
#go in to the right directory
$base="/home/".$userID."/mail/".$field21;
chdir("$base");

#build the full path name
$full=$base."\/".$filename;

#open the file first
open(OUTFILE2, ">$full") or die "Can?t open file: $!";

#write to the file
print OUTFILE2 "From: ", $from, "\n";
print OUTFILE2 "To: ", $to, "\n";
print OUTFILE2 "Subject: ", $subject, "\n";
print OUTFILE2 "Message body: ", "\n", $body, "\n";
close OUTFILE2;
#change file permission 
chmod (0666, "$full");
}