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