require Example::Tuple;

my $origin= Example::Tuple->new( -3, 5 );
my $dest=   Example::Tuple->new( 2, 1 );
print "Now draw a line from $origin to $dest.\n";