¾Õ¼ ÀÛ¼ºÇÑ ½ºÅ©¸³Æ®¿¡¼´Â CGIÀÇ "À̸§/°ª"ÀÇ ½ÖÀ» Æ÷ÇÔÇÏ´Â ¹®ÀÚ¿À» ¹è¿·Î ÀúÀåÇß¾ú´Ù. ÀÌÁ¦ ³ªÁß¿¡ ½±°Ô Á¶ÀÛÇϱâÀ§ÇØ À̵éÀ» óÀ½ºÎÅÍ ³¡±îÁö ¹Ýº¹, ¿¬°ü¹è¿¿¡ ÀúÀåÇÏÀÚ.
foreach $pair ( @cgiPairs ) {
($var,$val) = split("=",$pair);
#ÀÌÇÏ´Â ¹Ï°í µû¶óÁֱ⠹ٶõ´Ù.
$val =~ s/\+/ /g;
$val =~ s/%(..)/pack("c",hex($1))/ge;
$cgiVals{"$var"} = "$val";
}
$recipient = $cgiVals{"to"};
4Çà¿¡¼ »ç¿ëÇÑ ±â¹ýÀº URL¿¡¼ Çã¿ëµÇÁö ¾Ê´Â Ư¼öÇÑ ¹®ÀÚ¸¦ Çؼ®ÇÏ´Â ¹æ¹ýÀÌ´Ù. Áö±ÝÀº ´ÜÁö ¹Ï°í »ç¿ëÇÏÀÚ.