—

              
#! /usr/bin/perl
use strict;
use warnings;
use Socket;
use IO::Socket;
use IO::Select;
use Getopt::Long;
my $sock = new IO::Socket::UNIX(
        Peer            => "/tmp/karmad",
                )
        or die "Failed to create socket: $!";
print $sock <<"EOQ";
client_address=127.0.0.2
sender=fred\@nowhere.net
helo=nowhere.net
queue_id=$$
EOQ
while (<$sock>) {
        print;
}
__END__
HideShow 26 lines of Pod
=head1 NAME
karmac - Test client for L<karmad>
=head1 DESCRIPTION
This is a trivial test client for the included L<karmad> daemon.
It emulates postfix or exim sending a query to the daemon. See the
source code for more details.
=head1 SEE ALSO
L<Mail::Karmasphere::Client>
L<Mail::Karmasphere::Query>
L<Mail::Karmasphere::Response>
http://www.karmasphere.com/
=head1 COPYRIGHT
Copyright (c) 2005 Shevek, Karmasphere. All rights reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut