$h="/home/frank/.mail";map{open(++$i,$_)or die}("$h/inbox","${h}.p");
@c=<2>;@a=map{m/<((\.|\w)+@(\.|\w)+\.[a-z.]+)>/gi}<1>;
($c,$_)=(@c[@c*rand],@a[@a*rand]);open(M,"|mail $_")? print M:die