Help for this page

Select Code to Download


  1. or download this
    use strict;
    use Win32::Console::ANSI; # thanks ikegami
    ...
        if ($spinvalue > 3) { $spinvalue = 0; }
        return;
    }
    
  2. or download this
    my $console = Term::ANSIScreen->new;
    $console->Cursor(-1,-1,-1,-1,0);