Receiving partial Packets using RECV

See more:

Perl

Hello,

I have made myself a piece of code, but it is not working correctly

$socket->send($sPacket);
($msg) = '';
recv($socket, $msg, 10, 0) or die "recv: $!"; #This line
if($msg != NULL)
{
    recv($socket, $msg2, 5, 0) or die "recv: $!"; #This line
    if($msg2 == 'p4150')
    {
        print "Successfully connected to the server.";
    }
    else
    {
        print "FAILB : $msg2";
    }
}
else
{
    print "FAILA : $msg";
}

It doesn't work because RECV(with flags 0) wants be to have a buffer of at least the size of the receiving packet. The packet has a length of 15 , I want only the first 10 bits and then the next 5 on the second RECV.
Are there any flags I can use to solve this problem, or is there a good alternative (other receiving function/something else)?

Thanks in advance!,
Tim