Add Perl script to detect dead needles