if geocities ; @pairs=split(/&/,$buffer); sub sendmail {my ($from, $to, $subject @msg)=@-;{ open(mail,"|$mailing,