#!/usr/bin/perl

use strict;
use warnings;
use XML::Tidy;

my $tidy_obj = XML::Tidy->new(
               'filename' => '/path/to/xmlfile');
$tidy_obj->tidy();
$tidy_obj->write();