perl script to avoid sbattons