my $anzahl = 3;
getlinefromsocket( $socket, $anzahl);

sub getlinefromsocket{
   my ($socket,$anz) = @_;
   my $buffer;
   my $char;
   while ($socket->recv($char,1)) {
      $buffer.=$char;
      last if length $buffer == $anz;
   }
   print $buffer;
}