#!/usr/bin/perl
use strict;
use warnings;
use Sendmail::PMilter;
my $conn = 'local:/var/run/mymilter.sock';
my $milter = Sendmail::PMilter->new();
$milter->setconn($conn);
$milter->register('mymilter',
                  {}
                  Sendmail::PMilter::SMFI_CURR_ACTS
                 );
$< = $> = getpwnam 'nobody';
$milter->main()