How to display all the available colour tables

Here is a Perl one-liner to display all the available colour look up tables in PDL::Graphics::LUT

 perl -e 'use PDL;use PDL::Graphics::PGPLOT;                                     
 use PDL::Graphics::LUT;dev("/xs",3,15);                                         
 foreach(lut_names()){print"$_\n";ctab(lut_data($_));imag sequence(250,1);       
 text $_,20,-0.2,{CHARSIZE=>20,LINEWIDTH=>20,COLOUR=>0};
 text $_,20,-0.2,{CHARSIZE=>20,LINEWIDTH=>1,COLOUR=>1};}'

This produces a PGPLOT window with all the colour tables labelled with their name.

To just see a list of available colour tables, use:

 perl -e 'use PDL::Graphics::LUT;foreach(lut_names()){print"$_\n";}'