getting things more in line with perl amin added comments
adding missing dispatcher header