use Lingua::Identify qw/:all/;

set_active_languages( qw/fr it es en de pt/ );

langof( { 'method' => [ 'ngrams2', 'ngrams3' ] } ,$string );