  #!/usr/bin/perl
  use strict;
  use warnings;
  use Tk;
  use Tk::ForDummies::Graph::Areas;

  my $mw = new MainWindow(
    -title      => 'Tk::ForDummies::Graph::Areas example',
    -background => 'white',
  );

  my $GraphDummies = $mw->Areas(
    -title     => 'My Area chart title',
    -xlabel    => 'X Label',
    -ylabel    => 'Y Label',
    -linewidth => 1,

  )->pack(qw / -fill both -expand 1 /);

  my @data = (
    [ "1st", "2nd", "3rd", "4th", "5th", "6th", "7th", "8th", "9th" ],
    [ 5,     12,    24,    33,    19,    8,     6,     15,    21 ],
    [ -1,    -2,    -5,    -6,    -3,    1.5,   1,     1.3,   2 ]
  );

  # Add a legend to the chart
  my @Legends = ( 'legend 1', 'legend 2', );
  $GraphDummies->set_legend(
    -title       => "Title legend",
    -data        => \@Legends,
    -titlecolors => "blue",
  );

  # Add help identification
  $GraphDummies->set_balloon();

  # Create the chart
  $GraphDummies->plot( \@data );

  MainLoop();
