PSQL - Perl SQL Shell