my $X = XYZServer->new;
my $sane;

$sane = $X->sane;