use strict;

use Digest::file qw(digest_file_hex);

die 'XML file has been changed!\n'
    unless digest_file_hex( 'test.xml', "MD5" ) eq
        'e253b427caacb6f0781f337a90658c6a';
print "Continue\n";