#! /usr/bin/perl
use strict;
use warnings;
use URI;

my $uri = URI->new("dvb://tv.mydomain.com:11300/rsat.ts");
print $uri->host;

# erzeuge neues URI Scheme
package URI::dvb;
use parent "URI::http";
1;