use Imager;
my $im = Imager->new;
$im->read(file => "input.tif") or die $im->errstr;

my $im8 = $im->to_rgb8;

$im8->write(file => "output.tif") or die $im->errstr;