#!/usr/bin/env perl
use Mojolicious::Lite -signatures;
use Mojo::DOM; # in case you need to parse the incoming XML

sub TimeStamp { scalar gmtime } # dummy

post '/toMFF' => sub ($c) {
	my $body = $c->req->body;
	my $dom = Mojo::DOM->new->xml(1)->parse($body); # example
	say "[[[$dom]]]"; # just for debugging
	$c->render('test', format => 'xml',
		timestamp => TimeStamp=~s/\s/T/r);
};
 
app->start;

__DATA__
@@ test.xml.ep
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE cXML SYSTEM "http://xml.cXML.org/schemas/cXML/1.1.009/cXML.dtd">
<cXML payloadID="foo@ceprinter.com" xml:lang="en-US" timestamp="<%= $timestamp %>">
    <Response>
    <Status code="200" text="OK" />
    </Response>
</cXML>

##</code><code>##

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE cXML SYSTEM "http://xml.cXML.org/schemas/cXML/1.1.009/cXML.dtd">
<cXML payloadID="foo@ceprinter.com" xml:lang="en-US" timestamp="WedTJun  8 16:20:00 2022">
    <Response>
    <Status code="200" text="OK" />
    </Response>
</cXML>