use Tk;
use Tk::TextUndo;

my $mw = tkinit;

my $testundo = $mw-> Scrolled ('TextUndo', -wrap => 'none',)-> pack ();

MainLoop;