$time perl  compare_files.pl

real    0m2.378s
user    0m1.384s
sys     0m0.069s