You are using a while loop, but you need a foreach loop. As it stands, @loop is always true, so your while loop never exits.

On another note, I think the way you are using (open|read|close)dir is also adding "." and ".." to @files, which probably isn't what you want. You might want to use something like:

@files = grep /\.inc$/, readdir(DIR);
[download]

UPDATE: enlil is just slightly quicker on the draw today, I guess. ;)

UPDATE AGAIN: Re: the response below. Careful now -- you very likely can open . and .., and you'll get very weird results.

- Matt Riffle