mkdir pod
perl -MIO::File -lpe '
    s/^_CUT: (.*)$// and do { *STDOUT = IO::File->new(">pod/$1"); };
    s/^_DB: (.*)$//  and do { $_ = qx[psql -c "$1"]; s/^/ /gm;    };
    ' mydb.pod