Select Code to Download

sub position {
    my($i) = @_;
...
    }
    return ($x, $y);
}

my $edge = 100;

...

# Convert the image to PNG and save it
print PNG $im->png;