# Request authentication
if(1){
    my %request = (
        'request-type'  => 'GetAuthRequired',
        'message-id' => 'rand' . int(rand(1_000_000)),
    );
    my $outframe = $frame->new(buffer => encode_json(\%request), type => 'text', masked => 1)->to_bytes;
    syswrite($sock, $outframe);
}