Select Code to Download

$precision = $feature_found / $rank;

$precision = eval { 
    $feature_found ? $rank / $feature_found : 0; };

#!/usr/bin/perl
...
close IN;
close INB;
close OUT;