Perl has a setsockopt call where you can set the LEVEL:

 setsockopt SOCKET,LEVEL,OPTNAME,OPTVAL
    Sets the socket option requested.  Returns
    undefined if there is an error.  OPTVAL may be
    specified as "undef" if you don't want to pass an
    argument.

I assume that the arguments would be the same as the corresponding C call.