#!/usr/bin/perl -l

use strict;
use warnings;
use Term::ANSIColor qw(colorvalid);
use Term::ANSIScreen qw/:color :constants/;

my $valid = colorvalid ('magenta');
print "Color string is ", $valid ? "valid" : "invalid";
print MAGENTA  . "Magenta" . RESET;