use Data::Dumper;
use WWW::Mechanize::Chrome;
use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init($TRACE);
my $url = "http://bcu-guides.unifr.ch/fr/subjects/ref#tabs-0";
my $mech = WWW::Mechanize::Chrome->new();
$mech->get($url);

print $mech->status, "\n";
print $mech->title(), "\n";
 die ( "No response : status line is ", $mech->status )  unless ( $mech->success );