while (my $line = <$cl>) {
        print "Received: $line\n";
        ...
    }