perl script connect to postgresql, for my team learning