use Symbol;
...
 socket($SOCK=gensym(), PF_INET, SOCK_DGRAM, $proto);
...
Otherpackage::foo($SOCK) 
...
package Otherpackage;
sub foo { my $fh = shift; }