Select Code to Download

use strict;
use warnings;
...
   my $longest = longest(common(subseqs($s1), subseqs($s2)));
   print("$longest\n");
}