Help for this page

Select Code to Download

Select or download this
```
$file=$ARGV[0];

...

}
close IN;
```

Select or download this

use Text::Levenshtein qw(distance);
$distance = distance ($id1, $id2);