Select Code to Download

use Curses::UI;
my $cui = new Curses::UI( -color_support => 1);

$cui->{-read_timeout} = 0;

my $last = time;
...
        sleep(0.01);
    }
}

#!/usr/bin/perl -w

...
        sleep(0.01);
    }
}