use Mail::Sendmail;

print("\nRzR-Mailer By Rozor\n\n"); 
print("Correo Enviador: "); 
$too =<STDIN>;
print("\nArchivo correos: ");
$fichero =<STDIN>;
print("\nMenssage: \n - ");
$text =<STDIN>;


unshift @{$Mail::Sendmail::mailcfg{'smtp'}} , 'smtp.hotpop.com';
$mail{smtp} = 'smtp.hotpop.com';

  %mail = ( To      => $fichero,
            From    => $too,
            Message => $text
           );

  sendmail(%mail) or die $Mail::Sendmail::error;

  print "OK. Log says:\n", $Mail::Sendmail::log;