#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use HTTP::BrowserDetect 1.63;
use 5.010;

my %ua = (
	Opera_1216	=> 'Opera/9.80 (Windows NT 6.1; WOW64) Presto/2.12.388 Version/12.16',
	Firefox_24	=> 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:24.0) Gecko/20100101 Firefox/24.0',
	IE_10		=> 'Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; Win64; x64; Trident/6.0)',
	Opera_18	=> 'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/31.0.1650.8 Safari/537.36 OPR/18.0.1284.5 (Edition Developer)',
	IE_11		=> 'Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko',
	Firefox_25	=> 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:25.0) Gecko/20100101 Firefox/25.0',
	muell		=> 'Negativtest',
);

for my $k (sort {lc $a cmp lc $b} keys %ua) {                                    
	my $browser = HTTP::BrowserDetect->new($ua{$k}) or die;  
	say "$k: ",(defined $browser->browser_string() && defined $browser->version() ? $browser->browser_string().' '.$browser->version() : 'unbekannt');
}