Select Code to Download

use strict;
use warnings;
...
    my ($str1, $str2) = @$ar;
    print editDistance($str1,$str2), " <$str1:$str2>\n";
}

sub min {
    my $rv = shift;
...
}

print "Min test: ", min(5,0,-10), "\n";