BEGINN{
@INC =();
unshift(@INC, '/mypath/to/inc');
}