use strict;
use warnings;
use Math::Interpolate qw(linear_interpolate);

print "$_: ".linear_interpolate( $_, [0,255], [0,100])."\n" for 0..255;