======1.pl======
require '2.pl';
print colored ['red'], "test";
======2.pl======
use Term::ANSIColor;
1;
================