my $gd; 
eval{$gd=$image->resize(160, 120)}; 
do{warn "processing error for file: $line - skipping\n"; next} if $@ or not ref $gd;