流れソイヤ

soiya.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

use Time::HiRes qw( usleep );

for my $i ( 1..30 ) { 
    print "\033[2J";
    print "\033[0;0H";
    for ( 1..$i ) { 
        print "\n";                                                                                                     
    }   
    my $soiya = ' 'x$i . 'soiya!';
    print $soiya;
    print "\n";

    usleep(33333);
}
print "\033[0;0H";