$my_graph = new GD::Graph::lines();

$my_graph->set( 
        x_label => 'Month',
        y_label => 'Measure of success',
        title => 'A Multiple Line Graph',

        y_max_value => 8,
        y_min_value => -8,
        y_tick_number => 16,
        y_label_skip => 2,
        box_axis => 0,
        line_width => 3,
        zero_axis_only => 1,
        x_label_position => 1,
        y_label_position => 1,

        x_label_skip => 3,
        x_tick_offset => 2,
);

$my_graph->set_legend("Us", "Them", "Others");

open PNG, ">sample52.png";
binmode PNG; #only for Windows like platforms
print PNG ($my_graph->plot(\@data))->png;
close PNG;

$map = new GD::Graph::Map($my_graph, info => '%l');
$HTML = $map->imagemap("sample52.png", \@data);

__END__