open (MAIL, "|$mailprog $youmail") || die "Can't open $mailprog!\n";
if ($INPUT{'email'} =~ /(.*)@(.*)/) {
print MAIL "From: $INPUT{'name'} <$INPUT{'email'}>\n";
} else {
print MAIL "From: $INPUT{'name'}\n";
}
print MAIL "主题:访客填表\n\n";
print MAIL "$INPUT{'name'} 来填表单:\n\n";
print MAIL "------------------------------------------------------\n";
if ($INPUT{'name'}){
print MAIL "访客: $INPUT{'name'}\n";
}
if ($INPUT{'email'}){
print MAIL "Email: $INPUT{'email'}\n";
}