##################################
########### Ready to go
##################################

use Time::HiRes 'time';

my $t = time;

$image   = t_lab-> apply(( !t_srgb )-> apply( $image ));
$palette = t_lab-> apply(( !t_srgb )-> apply( $palette ));

my $indexed = delta_e_2000( 
    $palette, $image-> dummy( 1, $plt_size )
)-> minimum_ind;

print time - $t, "\n";

print @pixels[ @$_ ], "\n" for @{ $indexed-> unpdl };