$mailprog = '/usr/sbin/sendmail';
open (MAIL, "| $mailprog -t -oi")||die "server error; Please try again later";
print MAIL "To: falcons\@polbox.com\n";
print MAIL "Subject: do-kina\n\n";
 
foreach $key (keys(%formdata)) {
  print MAIL "$key = $formdata{$key}\n";
}
close MAIL;

##</code><code>##

$mailprog = '/usr/sbin/sendmail';
open (MAIL, "| $mailprog -t -oi")||die "server error; Please try again later";
print MAIL "To: m.kwest\@cematsil.com.pl\n";
print MAIL "Subject: do-kina\n\n";
 
foreach $key (keys(%formdata)) {
  print MAIL "$key = $formdata{$key}\n";
}
close MAIL;