#!/usr/bin/env perl
use warnings;
use strict;

use Term::Colormap qw( color_table colormap_names );

if (defined $ARGV[0]) {
    color_table( $ARGV[0] )
} else {
    for my $name ( colormap_names() ) {
        color_table($name);
    }
}

