package Server;

use Guard;

sub new {
         my ($caller, %args) = @_;
         my $this = $caller || ref($caller)
         die;
         return bless[], $this;
}

1;