use CGI;
use SSS;
 
my $q = new CGI();
my $sf = pot::SF->new; # pot::SF is a user-defined module
 
my $lang_to_use = get_lang($q->http('Accept-language'), $sf->{LANGUAGES}) ;
$lang_to_use = $sf->{LANG_DEFAULT} if (!defined($lang_to_use));
my $lh = SSS->get_handle($lang_to_use);