#!/usr/bin/perl -w
use strict;
use HTTP::Negotiate;
use Data::Dumper;

my $langs = 'en, fr';
my $request = new HTTP::Headers();
$request->header('Accept-Language', $langs);

my $variants
  = [
     [ 'var1', 1, undef, undef, undef, 'en', 1 ],
     [ 'var1', .8, undef, undef, undef, 'fr', 2 ],
    ];
my @preferred = choose($variants, $request);
print 'preferred: ' . Dumper(\@preferred);