Select Code to Download

use strict; use warnings;
use Math::Fractal::Curve;
...
my $depth = 5;

my $edges = $curve->fractal($depth);

# append to the other part of the script    
use Imager;
...

$img->write(file=>$filename) or
        die $img->errstr;