Select Code to Download

#!usr/bin/env perl

...

print colorize(bright_red => "<<<<<\n") . $var . colorize(bright_red =
+> ">>>>>\n");

<<<<<
action=setwpos %u +1 (|desc|) ; shift (|context_desc|) (COUNTER_START_
+VAR) ; shift (|context_desc|) (COUNTER_STATE_VAR) ; eval (COUNTER_STA
+TE_VAR) ( $counter=(COUNTER_STATE_VAR); ++$counter; ) ; add (|context
+_desc|) (COUNTER_START_VAR) ; add (|context_desc|) (COUNTER_STATE_VAR
+) ; assign (COUNTER_STATE_VAR) 0 ; set (|context_desc|) |restart|
>>>>>