#!/usr/bin/perl -w 
#############################################
# useage: update.pl PATH
#   where PATH is the full path of the directory 
#   we want to fix the files in. 
use strict;
use Tie::File;

exit(0) unless $ARGV[0];

chdir $ARGV[0]
   or die "Cound not chdir to " . $ARGV[0];
#
# Create your own messages for above.

my @files=glob("*.html");

foreach my $file(@files){
   my @ry=();
   tie @ry,"Tie::File",$file 
     or die "Could not open $file";
   $_=~s/2003/2004/g foreach @ry;
   utie @ry;
}