Clinical/medical tool by Perl language