#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

my $obj = {};

require Net::Fritz::Box;

$obj->{fb_device} = Net::Fritz::Box->new(
    upnp_url    => 'http://192.168.0.1:49000',
    username    => 'upnp_benutzer',
    password    => 'upnp_passwort',
);
if (my $error = $obj->{fb_device}->error) {
    die "Objekterzeugung/Login durch Net::Fritz::Box->new() wirft Fehler: '$error'";
}

my $device = $obj->{fb_device}->discover;

my $service = $device->find_service('DeviceConfig:1');

my $response = $service->call(
    'X_AVM-DE_GetConfigFile',
    'NewX_AVM-DE_Password' => 'guipasswort',
);

my $configfileurl = $response->data->{'NewX_AVM-DE_ConfigFileUrl'};

say "URL: '$configfileurl'";