Create lcov.perl