&getlinefromsocket;
[...]
sub getlinefromsocket {
  my $socket = shift;
[...]