print ($graph->plot(\@point)) , "\n" ;