Select Code to Download

    my @dim = $canvas->bbox("all");
    my $width = ($dim[2]-$dim[0]);
...
             '-height' =>$height
                      );

    my @dim = $canvas->bbox("all");
    my $width = ($dim[2]-$dim[0]);
...
             '-height' =>$height
                      );