#...
sub getlinefromsocket ($socket){
   #...
}