for ($i=1;$i<=$count;$i++){

   if ($FORM{$i} && $FORM{'deletit'})
   {
     $pop->Delete($i);
     next;
   }

   if ($FORM{$i} && $FORM{'done'})
   {
     $body = $pop->HeadAndBody($i);
     
     $mailer = mail::Mailer->new();
     $mailer->open({From=>$from,To=>$to,Subject=>$subject});
     print $mailer $body;     
     $mailer->close();
     $pop->Delete($i);         
     print '<b>'.$i.'. Письмо переправлено на основной ящик!</b>';     
   
     next;
   }

  print 'Типа здесь Хедер и тело письма\n';
}

use MIME::Lite;
       $msg = MIME::Lite->new(
                            From     =>'from@mail.ru',
                            To       =>'to@mail.ru,
                            Subject  =>'SUBJ',
                            Data     =>'MESSAGE'
                            );
       MIME::Lite->send('smtp', "127.0.0.1", Timeout=>60);