use Email::Filter;
my $mail = Email::Filter->new(emergency => "~/emergency_mbox");
$mail->accept("$ENV{HOME}/Mail/new") unless $mail->subject =~ /magic_keyword/; # usually exit here
send_mail();

sub send_mail {

# see docs for Email::Sender

}