—

              
#!/usr/bin/env perl
use strict;
use Data::STUID::Server;
use Getopt::Long;
my $p = Getopt::Long::Parser->new;
$p->configure(qw(
    posix_default
    no_ignore_case
    auto_help
));
my %opts = (
    port => 9001
);
my @optspec = qw(
    host_id=i
    port=i
    min_servers=i
    min_spare_servers=i
    max_servers=i
    max_spare_servers=i
    max_requests=i
);
if (! $p->getoptions(\%opts, @optspec)) {
    exit 1;
}
my $server = Data::STUID::Server->new(%opts);
$server->run;
__END__
HideShow 10 lines of Pod
=head1 NAME
stuid-server - STUID ID Generator Server
=head1 SYNOPSIS
    stuid-server --host_id=unique_number
=cut