Sample code to create graph by perl and GD