my $maxPacket = 1500;
while ($SocketHandle->recv($Status,$maxPacket))
{
    if (length($Status) ne $maxPacket)
    {
        print $Status;
        last;
    }
    elsif (length($Status) eq $maxPacket)
    {    
        print $Status;
        next;
    }
}