Addind cleandir - perl script to view/delete files inside a directory