my @logConc;
  my @data;
  my @forGraph = (\@logConc,\@data);
  
  #end debug
   
  my $graph = GD::Graph::lines->new(500,300);

  $graph->set(
      x_label         =>  'Loged stuff',
      y_label         =>  'Intensity',
      title           =>  "Plot of $cell_name (row $plateRow)",
      line_width      =>  1,
      legend_spacing  =>  5,
      x_tick_number   =>  'auto',
      box_axis        =>  0,
      y_min_value     =>  0,
      y_max_value     =>  2,
      transparent     =>  0
      ) or die $graph->error;
  $graph->set_legend($cell_line_name);


     my  $format = $graph->export_format;

      print header("image/$format");
      binmode STDOUT;
      print $graph->plot(\@forGraph)->$format();