Help for this page
$file=$ARGV[0]; ... } close IN;
use Text::Levenshtein qw(distance); $distance = distance ($id1, $id2);