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