A perl script for create ideogram of human chromosomes.