if you'll have Tcl::Tk up and running, using Tcl widgets isn't hard (those developed in Tcl or for Tcl).
To give an idea, look for example at http://vkonovalov.ru/cgi-bin/perl-tcltk-wiki.cgi/40 or other examples at that wiki.
Note that at that example BLTNoteBook is a widget within Tcl/Tk, and initially it is completely unknown to Tcl::Tk perl module. It is a single line of perl code to introduce BLTNoteBook widget to Tcl::Tk
Tk Video could be very similar, and I will get you an example of concrete code, once you'll get far enough :)
