Postgressql and Perl first Test