#!/usr/bin/perl -w
use strict;
use Mail::Audit qw(List);
my $mail = Mail::Audit->new();
$mail->list_accept();
$mail->accept();