Net::EPP::Frame::Command::Create::Contact3pm

        use Net::EPP::Frame::Command::Create::Contact;
        use strict;
        my $create = Net::EPP::Frame::Command::Create::Contact->new;
        $create->setContact('contact-id);
        print $create->toString(1);

This results in an XML document like this:

        <?xml version="1.0" encoding="UTF-8"?>
        <epp xmlns="urn:ietf:params:xml:ns:epp-1.0"
          xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
          xsi:schemaLocation="urn:ietf:params:xml:ns:epp-1.0
          epp-1.0.xsd">
            <command>
              <check>
                <contact:create
                  xmlns:contact="urn:ietf:params:xml:ns:contact-1.0"
                  xsi:schemaLocation="urn:ietf:params:xml:ns:contact-1.0
                  contact-1.0.xsd">
                    <contact:id>example-1.tldE<lt>/contact:id>
                </contact:create>
              </check>
              <clTRID>0cf1b8f7e14547d26f03b7641660c641d9e79f45</clTRIDE<gt>
            </command>
        </epp>