#!/usr/bin/perl

use strict;
use XML::Twig;

my $fileLocation = "test.xml";

open(SOURCE, "< $fileLocation") or die "Couldn't open $fileLocation for reading: $!\n";

my $twig = new XML::Twig;

$twig->parse($fileLocation);