update alter_bufferpool
add some perl demo