#!/usr/bin/perl

my $no_insult;

BEGIN {
    eval "use Acme::Scurvy::Whoreson::BilgeRat;";
    $no_insult++ if ($@) ;
}
     my $insultgenerator = Acme::Scurvy::Whoreson::BilgeRat->new(
                language => 'insultserver'
        );

sub insult {
        return $insultgenerator; 
}
1;
__END__