#!/usr/bin/perl

$| = 1;

use strict;
use warnings;

use Image::Magick;

sub howto() {
    print STDERR <<"TXT";
gif2xbm 0.9

Usage: gif2xbm sourcefile destinationfile

TXT
    exit (-1);
}

my ($filename1) = shift; # Gif-Datei
my ($filename2) = shift; # Name der XBM-Datei für die Ausgabe

howto() if not defined $filename1;

$filename2 = $filename1 if not defined $filename2;
($filename2, my $ext) = split(/\./, $filename1);
$filename2 .= '.xbm'; 

my $result;
my $image = Image::Magick->new;

$result = $image->Read($filename1); 
warn $result if $result;
$result = $image->Write($filename2); 
warn $result if $result;