################################################################ 
# 헤더를 구성
################################################################ 
print(MAIL "To: recipient\n"); 
if ( ! $cgiVals{'subject'} ) { 
    $cgiVals{'subject'} = "(no subject)"; 
} 
print(MAIL "Subject: $cgiVals{subject}\n"); 
if ( ! $cgiVals{'from'} ) { 
    $cgiVals{'from'} = "nobody"; 
} 
print( MAIL "From: $cgiVals{from}\n"); 
# 헤더를 구성한 후, 빈줄을 추가
print( MAIL "\n"); 
 
################################################################ 
# 몸체를 구성
################################################################ 
foreach $key ( keys(%cgiVals) ) { 
    if ( $key eq "to" || $key eq "subject" || $key eq "from" ) { 
	next; 
    }  
    print( MAIL "$key: $cgiVals{$key}\n"); 
} 
################################################################ 
# 메일 종료
################################################################ 
close(MAIL); 
# the response. 
print("폼을 성공적으로 체출했다. 고맙다."); 
exit(0);