It's also real easy to do this using the unix command tar.

tar -cvf filename.TAR ./
[download]

c = create new archive
v = verbose messaging
f = use the next arg as the name of the archive
I probably shouldn't say this, but I find the unix easier than perl in this case.

Keith