Select Code to Download

#!/usr/bin/perl
use strict;
...
                 );
$< = $> = getpwnam 'nobody';
$milter->main()

$milter->register('mymilter',
                  {
...
                  Sendmail::PMilter::SMFI_CURR_ACTS
                 );
openlog 'mymilter', 'pid', Unix::Syslog::LOG_MAIL();

use Unix::Syslog qw(:macros :subs);
sub is_valid_host
...

    Sendmail::PMilter::SMFIS_ACCEPT;
}

my %cache;
sub is_valid_host
...
    }
    $cache{$host};
}

        ++$msg_count;
        $0 = "[mymilter:$msg_count@" . scalar(localtime) . "] Checking
+ $fqdn ($rcpt_addr)";

#!/usr/bin/perl
use strict;
...
END { closelog }

$milter->main(10,100);