I'm not sure what your question means, but there are a couple of ways depending on the widget you use. Here is the simplest, for more complexity and vertical scroll use a Tk::Canvas. Also check out ztk-BBC-World-News-Rss-TickerTape
#!/usr/bin/perl
use Tk;
use strict;
my $text = 'Hello World !! ';
my $mw = tkinit;
$mw->geometry('+200+200');
$mw->overrideredirect(1);
my $label = $mw->Label(
-textvariable=>\$text,
-font=>'courier',
-bg=>'green',
-bd=>4,
-relief=>'ridge'
)->pack(-fill=>'both');
$label->bind('<ButtonRelease>',sub{$mw->destroy});
$mw->repeat(60,[sub{$text=~s/(.)(.*)/$2$1/;}]);
MainLoop;
|