| Current Path : /usr/share/doc/perl-Net-UPnP/examples/ |
| Current File : //usr/share/doc/perl-Net-UPnP/examples/upnpchk.pl |
#!/usr/bin/perl use Net::UPnP::ControlPoint; Net::UPnP->SetDebug(1); my $obj = Net::UPnP::ControlPoint->new(); @dev_list = $obj->search(); exit 0;