push (@INC, "H:/peri/myStuff");
require "ANSI.pm";
use Term::ANSIColor qw(:constants);
print BOLD RED ON_WHITE "This text is bold red on white.\n";