#!/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'";