#usr/bin/perl -T

use strict;
use warnings;
use diagnostics;
use LWP;
use DBI;
use Data::Dumper;

########################
# Let user make a choice
########################
TOP:
print "Typ the number of the disease you want the\n";
print "genes to be calculated and compared of.\n";
print "1\tAlzheimer disease (5, 6)\n";
print "2\tBardet Biedl (syndrome 1, 2, 3, 5)\n";
print "3\tBreast cancer (type 4)\n";
print "4\tdiabetes mellitus, noninsulin-dependent (3)\n";
print "5\tHypertension (essential, susceptibility to, 2)\n";
print "6\tInflammatory bowel disease (7)\n";
print "7\tSystemic lupus erythematosus (susceptibility to, 3)\n";
print "8\tmuscular dystrophy, limb-girdle (autosomal recessive) (type 1D, 1H)\n";
print "9\tparkinsons disease (type 3, 4, autosomal dominant, Lewy body)\n";
print "10\tprostate cancer (susceptibility to)\n";