I would suggest to seek a solution on tcl/tk world - like this one - http://wiki.tcl.tk/5735 (but you could find another even better one) - and then utilise it using Tcl or Tcl::Tk cpan modules.

This way you have more choices to select from.