Select Code to Download

#usr/bin/perl -T

use strict;
...
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";

########################
# Define for which keywords to go looking in the different databases
########################
...
else { print "Type a number between 1 and 10.\n"; 
        goto TOP
}

####################
# open file with results from POCUS database, parse it,
# and retrieve gene-name and score.
...
                        }
}
close(MARKER);

##################
# Make connection with Ensembl, and retrieve start, end  and rank.
##################
...
$sth->finish ();
$dbh->disconnect ();
}