got rid of the deprecation warning from perl