#!/usr/bin/perl -w
use strict;

use Image::Size;

opendir(DIR,"/home/dstefani/digi/image_uploads") or die "Can't open directory: $!\n";

my @images = readdir(DIR) or die "Can't read selected directory: $!\n";
closedir(DIR);

my $image;

foreach $image (@images)
{
    #print "$image\n"; # this worked, no errors
    my ($x, $y);
    ($x, $y) = imgsize($image); # this worked, no errors
    print "$x\n"; # TEST: this breaks it
    
    # I really want to get the images larger than 85 x 85
    # and move them to a different dir for digimarc processing
    
    #if ( $x > '85' && $y > '85')
    #{
    #    system("cp $image /home/dstefani/digi/med_lg_images/$image");
    #}
}