use SVG::TT::Graph::Line;


 my @fields = qw(Jan Feb Mar Jan Feb Mar Jan Feb Mar Jan Feb Mar Jan Feb Mar Jan Feb Mar );

my @data_sales_02 = qw(12 45 21 12 45 21 12 45 21 12 45 21 12 45 21 12 45 21);

my @data_sales_03 = qw(-15 -30 -40);


open(IMG, ">>Wf.html") or print "Error:- $!";


my $graph = SVG::TT::Graph::Line->new({
    'height' => '500',
    'width'  => '300',
    'fields' => \@fields,
	'min_scale_value'        => '0',
	'max_scale_value'        => '100',
	'step_x_labels'          => '2',
	
  });
  
  $graph->add_data({
    'data'  => \@data_sales_02,
    'title' => 'Sales 2002',
  });
     
  #print "Content-type: image/svg+xml\n\n";
  print IMG $graph->burn();