sendMapLogin(\$remote_socket, $accountID, $charID, $sessionID, Win32::GetTickCount() ,$accountSex2);

sub sendMapLogin {
〜
my $sessionID = shift;
my $time = shift;　＜＝追加
my $sex = shift;
my $msg = pack("C*", 0x72,0) . $accountID . $charID . $sessionID . pack("L", $time) . pack("C*",$sex);
$$r_socket->send($msg) if $$r_socket && $$r_socket->connected();

こうか？