#!/usr/bin/perl
  use warnings;
  use Carp;
  use strict;
  
  use Venn::Chart;
  
(A) # Create the Venn::Chart constructor
  my $venn_chart = Venn::Chart->new( 500, 500 ) or die("error : $!");   

(B) my $venn_chart = Venn::Chart->new( 500, 500,1 ) or die("error : $!"); 

##</code><code>##

sub new {
  my ( $self, $width, $height ) = @_;

  $self = ref($self) || $self;
  my $this = {};
  bless $this, $self;
-----
-----
}