Devel::FindAmpersand - Report exactly where Perl sawampersand
use Devel::FindAmpersand ();
Use this module only during development and wait for your script to finish. It will report where your script gets infected by a sawampersand operation.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.