#!/usr/bin/perl
use strict;
use warnings;

my $filesize1 = 0;
my $filesize2 = 0;

if (-e 'one.xml'){
	$filesize1 = -s 'one.xml';
}

if ( -e 'two.xml'){
	$filesize2 = -s 'two.xml';
}

if ( $filesize1 == $filesize2) {
	print "File sizes are equal\n";
}else{
	print "File sizes are not equal\n";
}