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;
[download]