#!/home/ben/software/install/bin/perl
use warnings;
use strict;
use utf8;
use FindBin '$Bin';
use Image::PNG::Libpng ':all';
use Image::PNG::Util;
use Getopt::Long;

my $ok = GetOptions (

);
if (! $ok) {
    usage ();
    exit;
}
my @files = @ARGV;
for my $file (@files) {
    if (! -f $file) {
	warn "$0: can't find a PNG file called '$file'.\n";
	next;
    }
    my $rpng = create_reader ($file);
    
}
exit;

sub usage
{
    print <<EOF;

EOF
}

# Local variables:
# mode: perl
# End:
