Select Code to Download

#!/usr/local/bin/perl
#
...
               'Subject' => 'PiX Detected Attack ' );
print $mailer <<@message;
close($mailer)                      or die "can't close mailer: $!";

[root@juanlinux perl]# perl ./logcheck
Array found where operator expected at ./logcheck line 14, at end of l
+ine
...
syntax error at ./logcheck line 22, near "@message"
Global symbol "@message" requires explicit package name at ./logcheck 
+line 22.
Execution of ./logcheck aborted due to compilation errors.