my $shp_writer = Geo::Shapefile::Writer->new( $name, 'POLYGON', @attr_descriptions );

my $shape = [
	[86.925, 27.988],
	[86.5278, 27.744],
	[86.43, 27.365],
	# ...many more vertices
];

$shp_writer->add_shape( $shape, @attributes );