Select Code to Download

use Term::ANSIColor;
use Term::ReadLine;
...
    print $OUT color('reset');
    $term->addhistory($_) if /\S/;
}