Select Code to Download

use strict;
use warnings;
...
$i++;

# create object 2 somehow, rinse and repeat

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