package Dependancies; sub CHECK { print $_, $/ for values %INC; die; } 1;