sub parsexml {

my $parser_obj = XML::LibXML->new();
my $doc;
my $xml_file = "filename.xml";
$doc = $parser_obj->parse_file($xml_file);
my ($xml_node) = $doc->findnodes($xpath);
}

parsexml();
sleep 30;
parsexml();
sleep 30;
.
.
.
.