this is to keafb, as you've said you're very new to perl :

DO NOT RUN THIS CODE AS IS

See that unlink at the end? that'll delete every file it comes across that matches the regex /^.*\.shtml\z/s. Beware.
You might want to change it to print ... or something else until you can understand what's going on.

note to others : I know that bikeNomad warned him, but I think a larger warning couldn't hurt in this case, ok?