use strict;
use warnings;
use Tk;
my $text = "this is a test...";
my $mw = new MainWindow;
$mw->Label(-textvariable=>\$text)->pack(-fill=>'both');
$mw->repeat(200,[sub{$text=~s/(.)(.*)/$2$1/}]);
MainLoop;