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

use Net::Fritz::Box;

my $username = "username";      # Username for scripting at FritzBox
my $password = "password";      # Username's password at FritzBox


my $fritz = Net::Fritz::Box->new(
    username => $username,
    password => $password,
);

die $fritz->error		if $fritz->error;

# only one FB in the network; use the one you find
my $device = $fritz->discover();
$device->errorcheck;

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

my $response = $service->call('Reboot');
$response->errorcheck;