rm cmd implement by perl.