my $h = HTK->new();
HTK::Text_Field->new($h,'test');

$h->main_loop;