[perl] E-mail com blat

[Bruno]

Amigos, Escrevi esta funcao para enviar um e-mail com PERL com o Blat em um sevidor NT, so que por algum motivo ele nao envia a mensagem. O Blat ja esta instalado corretamente, pois chamando o Blat no prompt eu consigo enviar, mas quando eu chamo ele pelo PERL ele simplesmente nao envia o E-mail. Alguem pode me dizer o que esta errado?!? Um abraco, Bruno obs: O Blat esta num diretorio que esta no PATH do autoexec.bat, de qualquer lugar que eu o chame, ele roda perfeitamente por isso em $mailprog eu nao defino o endereco completo do Blat. Eu ja tentei com path e sem path por isso acho que o problema nao eh eesse sub send_mail {  my($to,$from,$assunto,$mensagem)=@_;     $mailprog = 'blat';     $WIN_TEMPFILE="c:/temp/formmail.$$";     open(MAIL,">$WIN_TEMPFILE") or die print 'Droga';     local($BLAT_ARGS);     print MAIL "Subject: $assunto\n\n";     print MAIL "$mensagem\n\n";     $WIN_TEMPFILE =~ s/\//\\/g;     $mailprog =~ s/\//\\/g;     $BLAT_ARGS = "$WIN_TEMPFILE -t $to";     $BLAT_ARGS .= "-f $from " if defined($from);     print "$mailprog $BLAT_ARGS";     system "$mailprog $BLAT_ARGS";     unlink $WIN_TEMPFILE; }