#!perl use strict; use warnings; use utf8; use 5.020; use FindBin qw/$Bin/; use lib $Bin . '/Tk-Text-SuperText-0.9.5'; use Tk; use Tk::Text::SuperText; say $Tk::Text::SuperText::VERSION; my $mw = tkinit(); my $st = $mw->SuperText->pack(-fill => 'both', -expand => 1); $mw->MainLoop; exit(0);