#!/usr/local/bin/perl
use Imager;
use Imager::AnimeFace;
use strict;
use warnings;
use Data::Dumper;
my $im = Imager->new();
my @results;

$im->read(file=>"./test.bmp");

my $results = detect_animeface($im, step => 4.0, window => 32.0, scale_factor => 1.1);
my $blue = Imager::Color->new(0, 0, 255);
print "\n";
foreach my $face (@{$results}) {
    $im->box(
	xmin => $face->{face}->{x},
	ymin => $face->{face}->{y},
	xmax => $face->{face}->{x} + $face->{face}->{width},
	ymax => $face->{face}->{y} + $face->{face}->{height},
	color => $blue
    );
    printf("%d,%d,%d\n", $face->{face}->{x}, $face->{face}->{y},
	   $face->{face}->{width});
}

$im->write(file => "out.bmp", type=>'bmp');