#!/usr/bin/perl
use strict;
use warnings;
use Fcntl qw(:DEFAULT :flock);
use Data::Dumper;
local $Data::Dumper::Purity;$Data::Dumper::Purity = 1;
local $Data::Dumper::Useqq;$Data::Dumper::Useqq = 1;
local $Data::Dumper::Deparse = 1;$Data::Dumper::Deparse = 1;
local $Data::Dumper::Sortkeys;$Data::Dumper::Sortkeys = sub {
	my ($hash) = @_;
	return [(sort {lc $a cmp lc $b} keys %$hash)]; 
};
use 5.010;
system('cls');

require Net::Fritz::Box;

my $host = 'https://192.168.0.1:49443';
my $username = "uname";     		 # Username for scripting at FritzBox
my $password = "upsw";      # Username's password at FritzBox

my $config = Net::Fritz::ConfigFile->new(
	username => $username,
	password => $password,
	upnp_url => $host,
);

my $config_hashref = $config->configuration;

say Dumper($config_hashref);