BEGIN  {
    *CORE::GLOBAL::connect = sub (*$) {  
        ...
    }
}