Select Code to Download

my $needle = 'i pushed the lazy dog into a creek, the quick brown fox 
+told me to';
my $haystack = 'the quick brown fox jumps over the lazy dog';

require String::LCSS;
my $needle = 'i pushed the lazy dog into a creek, the quick brown fox 
+told me to';
my $haystack = 'the quick brown fox jumps over the lazy dog';
my $longest = String::LCSS::lcss ( $needle, $haystack );
print $longest, "\n";