#!/usr/bin/perl
use Mail::Audit;
my $item = Mail::Audit->new();

strace of this codes tells that it is wating for input. I thought this will read the mail from user mail.

**********************

open("/usr/share/perl/5.8/constant.pm", O_RDONLY|O_LARGEFILE) = 5

ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0xbfdc5e98) = -1 ENOTTY (Inappropriate ioctl for device)

_llseek(5, 0, [0], SEEK_CUR)            = 0

read(5, "package constant;\n\nuse strict;\nu"..., 4096) = 3051

_llseek(5, 3050, [3050], SEEK_SET)      = 0

_llseek(5, 0, [3050], SEEK_CUR)         = 0

close(5)                                = 0

read(4, "ore (man MIME::Parser) set C<mim"..., 4096) = 4096

read(4, " given, Mail::Audit will use har"..., 4096) = 4096

read(4, " treat the\n  #   mailbox as a no"..., 4096) = 4096

brk(0x8300000)                          = 0x8300000

brk(0x82ff000)                          = 0x82ff000

read(4, "rn $lock_error if $lock_error;\n "..., 4096) = 4096

read(4, "ow in tmp/.  hardlink to all the"..., 4096) = 4096

read(4, " for eternity.\n\nThis is a final "..., 4096) = 4096

brk(0x8320000)                          = 0x8320000

brk(0x831f000)                          = 0x831f000

read(4, "ail message with the given value"..., 4096) = 4096

read(4, ">?From )\n     .*?\\b\n     (Post(m"..., 4096) = 2878

read(4, "", 4096)                       = 0

close(4)                                = 0

read(3, "", 4096)                       = 0

close(3)                                = 0

read(0,
*******************************************