Reading files in a directory

From: James Parsons (JamesP_at_407ETR.com)
Date: 10/30/03 

To: "'beginners@perl.org'" <beginners@perl.org>
Date: Thu, 30 Oct 2003 14:23:20 -0500

Hi all

I've this Perl script to read all files in a directory and if it finds a
file with a certain then rename the file to header