#!/usr/bin/perl

# sum.pl

use strict;
use warnings;

use ImgSum;
use Data::Dumper;
use Storable;

my ($img, $res, $out) = @ARGV;
# $res is the sampling resolution

my $sum = ImgSum::summary($img, $res);

store($sum, $out);