#! /usr/bin/perl -T
use warnings;
use strict;

$ENV\{PATH\} = "/usr/pgsql-13/bin/:/usr/bin";
delete $ENV\{BASH_ENV\};

if (-e "/home/e-smith/db/pgsql/pgsql.dump")
\{
    open(STDIN, "/home/e-smith/db/pgsql/pgsql.dump");
    exec(qw(chpst -u postgres /usr/pgsql-13/bin/psql -q -f - template1));
\}
exit 0;
