use Text::Levenshtein qw(fastdistance distance);

print fastdistance("history","hustory"), "\n";
 # prints "2"

##</code><code>##

print fastdistance("gistory","history"), "\n";
 # prints "1"

##</code><code>##

print distance("gistory","history"), "\n";
 # prints "1234561234561"