Find script

quick and dirty perl find script, nothing special or unique