removed /dev/null from perl check