use strict ; use warnings ; package Principal ; require ("ot.pm") ; Principal::bof() ;