view release on metacpan or  search on metacpan

bin/insultd  view on Meta::CPAN

use Acme::Scurvy::Whoreson::BilgeRat;

my $insultgenerator = Acme::Scurvy::Whoreson::BilgeRat->new( language => 'insultserver' );

die "Urk, Couldn't load the Insult generator\n" unless $insultgenerator;

print $insultgenerator; # prints an insult

=head1 NAME

insultd - A random insult server, for self-flagellating maniacs

=head1 USAGE

Stick an entry in inetd that calls this program when anybody connects to a certain port.

Traditionally that port is 1695.

=head1 BUGS

Doesn't implement the logging or stats command line options.