PostgreSQL: output from multi-line pl/pgsql from psql from perl

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

#!/usr/bin/perl   my $cmd = "psql -Xq --set ON_ERROR_STOP=on --dbname crmmbqt <<'EOS' "; $cmd .= <<'END'; do $$ begin     raise notice '%', pg_is_in_recovery(); end $$ END $cmd .= 'EOS ';   print `$cmd`;