#!/usr/bin/perl

die "Usage: $0 image1 .. imageN\nDo not include the .raw extension.\n" unless (@ARGV);

use Image::Magick;

my $depth = 8; # or 16 or 24 or ...
my $size = '640x480';

foreach my $file (@ARGV) {
  my $image = Image::Magick->new;
  my $x;
  $x = $image->Read(
    filename => "rgb:$file.raw",
    size => '640x480',
    depth => $depth
  );
  warn "$x" if "$x"; # from the examples but looks funny to me ;-)
  $x = $image->Write("$file.png"); # or jpg or whatever
  warn "$x" if "$x";
}