Hello, I'm using 'perl' with 'C'. The C function'll invoke the perl subroutine. The subroutine has to create a socket, accept connection and return the fd of the socket connection. And the fd will be used in my 'C' code for receiving the requests from the client (only one). Please have a look at the below perl code.

sub CreateServer
{
my($PORT) = 10066;
my($ret);
$server = IO::Socket::INET->new( Proto     => 'tcp',
                                  LocalPort => $PORT,
                                  Listen    => SOMAXCONN,
                                  Reuse     => 1);
 die "can't setup server" unless $server;
 $client = $server->accept();
 $client->autoflush(1);

 return $ret;
}

Can i use the below two lines of code for getting the fd 
before the return statement

$ret = fileno $client;
return $ret;

And is it valid?.
[download]

Otherwise can i use the socket() call instead of the above mentioned IO::Socket::INET->new() method and use 'fileno' to get the fd. Is it OK?. Please suggest if you know some other way. Thanks, Poorna