Reboot all the Sonos speakers in the LAN

sonos-reboot.pl

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

use Net::UPnP::ControlPoint;
use WWW::Mechanize;

sub sonos_discover {
    my @hosts;
    my $cp = Net::UPnP::ControlPoint->new();
    for my $device ($cp->search(st => 'urn:schemas-upnp-org:device:ZonePlayer:1', mx => 1)) {
        my ($ip, $model) = split(' - ', $device->getfriendlyname, 2);
        push @hosts, $ip;
    }
    return @hosts;
}

sub sonos_reboot {
    my ($host) = @_;
    my $mech = WWW::Mechanize->new();
    $mech->get("http://$host:1400/reboot");
    $mech->submit_form(form_number => 1);
    return;
}

sonos_reboot($_) for sonos_discover();