aaaを送ったら終わるサーバー

Perl 
use strict;
use warnings;
use IO::Socket::INET;

my $s = IO::Socket::INET->new(
        #LocalAddr => "localhost",
        LocalAddr => "0.0.0.0",
        LocalPort => 9000,
        ReuseAddr => 1,
        ) or die $!;

$s->listen or die $!;

while (my $c = $s->accept) {
        while (my $q = $c->getline) {
                $q =~ s/\r//;
                $q =~ s/\n//;
                print "*****[$q]***\n";
                if ($q eq "aaa") {
                        $c->print("ok\n");
                        $c->close;
                        $s->close;
                }
        }
}