Opiniones para un script en perl.....

[Orvil Juárez <ojuarez@ipsgroup1.com>]

Que tal Listeros,

Me gustaria que los mas duchos perleros me dieran una opinion de este 
pequeño script que hice al vapor ya que necesito filtrar los emails pero 
el procmail no jala ni a patadas... el codigo es el siguiente el cual 
toma como entrada el contenido de un email, ya que en el .forward tiene 
la instruccion:

|/usr/bin/filtro.pl

y me gustaria si no es mucha molestia que me dijeran:
Que problemas le ven??
Creen que le afecte a los mensajes?
No se pegaran dos mensajes o tres y bajaran como uno solo al cliente de 
correo?
Tengo que bloquear el archivo antes de escribir en el??
Se hara mas lento el proceso de entrega del mail??
o no esta a toda mauser..... 
-----------------------------------------------------

#!/usr/bin/perl
my $intVeces=0;
my $Linea;
my $Subj;
my $strMail="";
while($Linea=<>)
{
$strMail=$strMail . $Linea;
if ($Linea=~/.*filename=.*(\.bat|\.exe|\.vbs).*/i)
{
 $intVeces++;
}
if ($Linea=~/^Subject:.*/i)
{
 $Subj = $Linea;
}
}
if ($intVeces <= 0)
{
 if( -e "/var/spool/mail/orvux")
 {
     open f1, ">>/var/spool/mail/orvux";
     print f1 $strMail;
 }
 else
 {
     open f1, ">/var/spool/mail/orvux";
     print f1 $strMail;
 }
 close f1;
}
else
{
 if( -e "/home/users/orvux/borrados.log")
 {
     open f2, ">>/home/users/orvux/borrados.log";
     print f2 "Mail Borrado--" . $Subj . "\n";
 }
 else
 {
     open f2, ">/home/users/orvux/borrados.log";
     print f2 "Mail Borrado--" . $Subj . "\n";      }
 close f2;
}
------------------------------------------------------

OrvUx
Making the Hard...Soft with Linux.