switch to perl chksrvd script