#!/usr/bin/perl

use Image::Magick;

my $filename = shift @ARGV;

my $image = new Image::Magick;
$image->Read($filename);
$image->Opaque(fill => 'blue', color => 'white');
$image->Write("colored_$filename");