xml_parser.pl

use 5.010;
use strict;
use warnings;
use XML::LibXML;
my $filename = 'info.xml';
my $dom = XML::LibXML->load_xml(location => $filename);
foreach my $info ($dom->findnodes('//main')) {
    say 'Author: ', $info->findvalue('./author');
    say 'Starting Date: ', $info->findvalue('./dateStarted');
    say 'Ending Date: ', $info->findvalue('./dateEnding');
    say 'Reason for the language: ', $info->findvalue('./reasonFor');
    say 'Tools: ';
    say 'OS: ', $info->findvalue('./os');
    say 'Text Editor: ', $info->findvalue('./toolEditor');
    say 'Compiler: ', $info->findvalue('./compiler');
    say 'Using ', $info->findvalue('make');

}