if (&readfromsocket(*new_sock)){ do some stuff}

##</code><code>##

sub readfromsocket{
local $socketname = shift;
        if (defined($lineread = <$socketname>)) {do some stuff}
}