media-tv perl