#!/usr/local/bin/perl -w
 use strict;
 use Net::UPnP::ControlPoint;

 my $upnp = Net::UPnP::ControlPoint->new();

 my @devices = $upnp->search(
     st => 'upnp:rootdevice',
     mx => 3 );

 foreach my $device (@devices) {
     print $device->getdevicetype(), "\n";
     print $device->getfriendlyname(), "\n";
     print $device->getssdp(), "\n";
 }