my $filename = "object$i.jpg";
if(-e $filename) {
      die "$filename already exists in this directory\n";
      # or something more useful.
}
open(FILE, ">", $filename) or die "Failed to open $filename: $!";