#!/usr/bin/perl -w

use Time::HiRes;
use Net::EPP::Client;
use Net::EPP::Frame::Command::Info::Domain;
use Digest::MD5 qw(md5_hex);
	
init_epp();
get_domain_info("somedomain.co.uk");

sub get_domain_info {
	my($domain) = (@_);
	my $info = Net::EPP::Frame::Command::Info::Domain->new;
	eval {
		$info->setDomain($domain);
		$info->clTRID->appendText(md5_hex(Time::HiRes::time().$$));
		print_xml($info->toString(1));	
		$answer = $epp->request($info);
		print_xml($answer->toString(1));
	};
	if ($@) { 
		if (ref($@)) {
	  		die($@->print());
		} 
		else {
			die(($@));
		}
	} 
}

sub print_xml {
	my @lines = (@_);
	my ($result);
	foreach $line (@lines) {
		$line =~ s/></>\n</g;
		$result .= $line;
	}
	print "$result\n";
}

sub init_epp {
	# passwords etc redacted
	my $greeting = $epp->connect();
	my $login = Net::EPP::Frame::Command::Login->new;
}