sub callback_function { my ($user_data, $header, $packet) = @_; ... }