#!/bin/sh
rm -f emails_enviados.txt
for i in `cat mala_direta.txt`
do
   sed -e "s/substitua/`echo $i`/g" email.perl > envia_email.perl 
   perl envia_email.perl
   sleep 2
   echo "Email enviado para $i" >> emails_enviados.txt
   echo "Email enviado para $i" 
done