#!/usr/bin/perl

use 5.040.3;
no warnings;
$|=1;

while (1){
    arrows();
}

exit 2;


sub arrows {

    for my $cube ( 1 .. 10 ){   
	print "\r";

	if ($cube == 1){
	    print "\x{2192}       ";
	}elsif ($cube == 2){    
	    print "  \x{2192}     ";
	}elsif ($cube == 3){    
	    print "    \x{2192}   ";
	}elsif ($cube == 4){
	    print "      \x{2192} ";
	}elsif ($cube == 5){
	    print "      \x{27F2} ";
	}elsif ($cube == 6){
	    print "      \x{2190} ";
	}elsif ($cube == 7){
	    print "    \x{2190}   ";
	}elsif ($cube == 8){
	    print "  \x{2190}     ";
	}elsif ($cube == 9){
	    print "\x{2190}       ";
	}else{
	    print "\x{27F3}       ";
	}
	
	select (undef, undef, undef, 0.001);
	
    }

}