Net::EPP::Frame::Command::Info::Contact3pm

        use Net::EPP::Frame::Command::Info::Contact;
        use strict;
        my $info = Net::EPP::Frame::Command::Info::Contact->new;
        $info->setContact('REG-12345');
        print $info->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>
              <info>
                <contact:info
                  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>REG-12345E<lt>/contact:id>
                </contact:info>
              </info>
              <clTRID>0cf1b8f7e14547d26f03b7641660c641d9e79f45</clTRIDE<gt>
            </command>
        </epp>