my $length = $sock->recv($sip_request,1000);
    print "\nReceived message '", $request,"'\n";

    my @headers = split/\n/, $request;

    my $tmp = 0;
    foreach my $line (@headers)
    {
        if ($tmp gt 0)
        {
            $sip_response = join($sip_response, $line, "\n");
        }
        $tmp++;
    }

    print "Our response is : \n";
    print $sip_response;