#!/usr/bin/perl

# Copies the central size^2 pixels of the most recent image to destfilename.

use DRAORed;
use Getopt::Std;

$use = q {
  Use: cookiecutter [-s size] destfilename
  size defaults to 128.  No check is made for whether size is greater than
  the original image!
};

getopt('s:');
$size = $opt_s || 128;

if ($#ARGV != 0) {
  die $use;
}
$destfile = $ARGV[0];

&cookiecutter($size, $destfile);