problem runing code | strange Error

[[EMAIL PROTECTED]]

Hi,

Im trying to run this code: (im getting this error message):

Can't use string ("From") as a HASH ref while "strict refs" in use at /
usr/lib/perl5/site_perl/5.8.8/Mail/Mailer.pm line 320.

The code:

use strict;
use warnings;
use Mail::Mailer;

my @lines = ();
open (INFO, "/var/log/messages") or die "$!";
while (my $line = <INFO>) {
   if ($line =~ /IDS/) {
      push @lines,$line;
   }
}
close INFO;
if (@lines) {
   my $mailer = Mail::Mailer->new("smtp", "10.83.27.71");
   $mailer->open( 'From' => 'Syslog <[EMAIL PROTECTED]>',
                  'To' => 'gabriela pinado
<[EMAIL PROTECTED]>',
                  'Subject' => 'PiX Detected Attack ' );
   print $mailer @lines;
   $mailer->close or die "can't close mailer: $!";
}

Any ideas where is the problem?

thanks a lot !

Juan


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/