#!/usr/bin/perl
use strict;
use warnings;
use Tk;

my $message = (@ARGV) ? join(' ',@ARGV) : 'ACHTUNG! Wichtig! Wichtig! Wenn Sie das verpassen haben Sie was verpasst. Morgen ist gestern, da Heute übermorgen Vorgestern gewesen sein wird! ';
my $top = MainWindow->new;
my $screen = $top->Label(-fg=>'Red', 
                         -bg=>'black',
                         -textvariable => \$message, 
                         -width => 150,
                         -height => 5);
$screen->pack();
$top->after(100, \&scroll_it);
$top->MainLoop;

sub scroll_it {
    $message =~ /(.)(.*)/;
    $message="$2$1";
    $top->after(200, \&scroll_it);
}