my $PSQL = q{psql -p 5555 mcdb -c \"update ev_cus_prof set active='f' where epid='INIT_EV_HIGH_PRIORITY';\"}; system(qq{su - admin -c "$PSQL"});