my $new;
BEGIN {
    require MIME::Lite;
    $new= MIME::Lite->can( "new" );
    undef &MIME::Lite::new;
}
sub MIME::Lite::new {
    # validate passed-in arguments here
    return $new->( @_ );
}