You may want to checkout out File::Find

Also, your script my work in sh and bash, but it will probably fail in perl. try use Shell if you want to use shell commands. I would suggest not though

Sorry that I don't have much else to offer, but I am busy atm:)

Kristofer Hoch