> perl -w 1.pl
Unquoted string "colored" may clash with future reserved word at tmp.pl line 2.
Name "main::colored" used only once: possible typo at tmp.pl line 2.
print() on unopened filehandle colored at tmp.pl line 2.