#!/usr/bin/perl -w
use strict;
use warnings;
use XML::DOM;

my $OUT_FILE;
my $OUT_DIR;
my $parser;
my $doc;
my @track;
my $element;
my $ligne;
my $type;
my @tab;
my $CompleteName;
my $Text_Codec;

#************************************************************
# Script Starting...

$OUT_DIR = "/home/";
$OUT_FILE = "test.xml";
$parser = new XML::DOM::Parser();
$doc = $parser->parsefile ($OUT_FILE);

print "$OUT_DIR"."$OUT_FILE"."\n\n";

@track = $doc->getElementsByTagName ("track");

foreach $element (@track) 
	{
		$_ = $ligne;
		$type = $element->getAttribute ("type");
		$ligne = $element->toString();
		if($type eq "General")
			{
				@tab = $doc->getElementsByTagName ("CompleteName");
				if (defined $tab[0]) 
					{
						$CompleteName = $tab[0]->getFirstChild()->toString();
						print "CompleteName is: $CompleteName\n";
					}
						else
							{
								print "CompleteName Not Found\n";
								$CompleteName="";
							}
			}
		if($type eq "Text")
			{
				@tab = $doc->getElementsByTagName ("Format");
				$Text_Codec = $tab[4]->getFirstChild()->toString();
			}
	}

print "\nTerminal:\n";
print $CompleteName.";".$Text_Codec."\n\n";

$doc->dispose;
__END__