*CORE::log = sub {
    # Your logging code here
}