Trivial UPnP daemon, written with Perl