Select Code to Download

# untested
my $im = Imager->new(xsize=>$width, ysize=>$height);
...
  $im->setscanline(y=>$y, pixels => 
      substr($nfr, $y * per_line, $per_line));
}

use Imager 0.48;
# this assumes you've created an image of the right 
...
  myfree(line_buf);
}
EOS