#!/usr/bin/perl
#
# Released to the public domain.
#
# Originally written by Tim Oertel.
# 2003-2004
#

use Gimp;

$file_in = $ARGV[0];
$file_out = $ARGV[1];

Gimp::init;

my $img = Gimp->gimp_file_load($file_in, $file_in);
Gimp->gimp_file_save($img->active_drawable, $file_out, $file_out);

#my $layer = Gimp->gimp_image_flatten($img);

#Gimp->file_png_save2($img, $img->active_drawable, $file_out, $file_out,
#                    0, 9, 1,0,0,1,1, 0,0);