use strict;
use warnings;
use XML::Simple;

&Getsettings;

sub Getsettings {
	if (my $config = XMLin("xmlin.xml",ForceArray => 1)) {
		my $value1 	   = $config->{'value1'}->[0];
		my $value2 	   = $config->{'value2'}->[0];
		my $value3 	   = $config->{'value3'}->[0];
		
		print "The values of 1, 2 and 3 are: $value1 $value2 $value3\n";
	}
	else {
		print "Config file not found";
	}
}
##</code><code>##

<XML>
	<value1>1</value1>
	<value2>2</value2>
	<value3>3</value3>
	<value4>4</value4>
</XML>