Select Code to Download

 
#!/usr/bin/perl -l

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

cat ansicolor