Select Code to Download

sub new
{
...
        }
}

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

$sane = $X->sane;

$sane = $X->insane;