#!/usr/bin/perl
#
# Written by Tim Oertel
# Copyright 2003-2004
# Released under the GPL.
# See http://www.gnu.org/licenses/gpl.html
# 
#

use Gimp;

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

Gimp::init;

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

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

Gimp->file_png_save($img, $img->active_drawable, $file_out, $file_out,
                    0, 0, 1,0,0,1,1);