Select Code to Download

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

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