sub EnviaEmail {
  my ($tp, $msg, $prog, $mailAdm) = @_;
  open (ARQ, "/usr/sbin/sendmail " .
             "$mailAdm " .
             "<<!\nSubject: [$prog]: $tp\n\n$msg\n.\n!\n\n |");
  close (ARQ);
  return;
}