use Tk;

$mw = MainWindow->new;
$edit = $mw->BrowseEdit(-font => 'times 12 normal')->pack;

$mw->Button(-command => sub { print $edit->to_html })->pack;

MainLoop;