#!/usr/bin/perl

use strict;
use warnings;

my @txt=split//,'Meine Laufschrift +++ ';
for my $i (1..100) {
    system('cls');
    for my $j ($i .. $i+60) {
        print $txt[$j%(@txt-1)];
    }
}
# ;-)