#
            ###
           $cur=
          "\e[H";
         my $cls =
        "\e[1J"; $n
       =9;print$cls;
      L1: print $cur;
     $c = ( $c eq '#')
    ? '*' : '#' ; for (
   $i = 1; $i<9; $i++) {
  $a=sprintf("% 13s%s \n"
 , $c x$i, $c x ( $i-1) );
print $a; sleep 1;}goto L1;