Use the canvas widget and create more widgets inside them. When they're set perfectly, have the canvas "print" to a Postscrpt file. Tada, virtual screen capture! Tcl/Tk natively can do it; Perl I'm not too sure. Check the Tk module for a postscript command.

--
$Stalag99{"URL"}="http://stalag99.keenspace.com";