#!/usr/bin/perl

use warnings;
use strict;
use LWP::Simple;
use XML::LibXML;

my $url = 'http://192.168.1.8/xmlfeed.rb';
my $parser = XML::LibXML->new;
my $doc = $parser->parse_file($url);
my $temp = $doc->getElementsByTagName('currentReading');

my $math = $temp + 5;
print $math;