#!/usr/local/bin/perl
use Net::UPnP::ControlPoint;
my $obj = Net::UPnP::ControlPoint->new();
my @dev_list = $obj->search();
my $nodevs = @dev_list;
print "Found $nodevs\n";