package Msg;
sub connect {
  my ($pkg, $to_host, $to_port, $rcvd_notification_proc) = @_;
}

# ...

Msg->connect($host, $port, \&rcvd_msg_from_server);