#!/perl/bin/perl -w
use strict;

my $file1     = "2006.txt";
my $file2     = "2007.txt";
my $file1size = -s $file1;
my $file2size = -s $file2;

print "The files have ", $file1size == $file2size ? "the same" : "different", 
  " size.\n\n";