[Sat Jun 08 17:04:41 2013] [error] [client 192.168.1.1] /usr/bin/perl: symbol lookup error: /usr/local/lib/perl/5.14.2/auto/Image/ObjectDetect/ObjectDetect.so: undefined symbol: cvLoad
[Sat Jun 08 17:04:41 2013] [error] [client 192.168.1.1] Premature end of script headers: open1.pl

##</code><code>##

#! /usr/bin/perl

use Image::ObjectDetect;

my $cascade = 'haarcascade_frontalface_alt2.xml';
my $file = 'picture.jpg';
my $detector = Image::ObjectDetect->new($cascade);
@faces = $detector->detect($file);
for my $face (@faces) {
    print $face->{x}, "\n";
    print $face->{y}, "\n";
    print $face->{width}, "\n";
    print $face->{height}, "\n";
}