#!/usr/bin/perl -slw

use strict;
use String::LCSS_XS qw(lcss);

my $longest = lcss ( "as", "asdfasdfasdf" );
print $longest;