#!perl
use strict;
use warnings;
$| = 1;
print "* Hi there, to read\n";
while (1) {
print "read: ";
my $command = <>;
chomp $command;
if ($command eq 'ping') {
print "pong\n";
} elsif ($command eq 'quit') {
exit;
}
}
#!perl
use strict;
use warnings;
$| = 1;
print "* Hi there, to read\n";
while (1) {
print "read: ";
my $command = <>;
chomp $command;
if ($command eq 'ping') {
print "pong\n";
} elsif ($command eq 'quit') {
exit;
}
}