sub MY::postamble {
    return << "DODB";
example_data
\tperl -e'\\
\t  your;\\
\t  code;\\
\t  here;'
DODB
}