use Net::UPnP::ControlPoint;

my $obj = Net::UPnP::ControlPoint->new();
my @dev_list = $obj->search(st =>'????', mx => 3);

my $service = $dev->getservicebyname('?????');
   
$service->postaction('????', { ??? => ???});