# Beware of using input from the user in $cmd.
my $cmd = 'for f in a b c; do date; sleep 1; done';

while (my $conn = $sock->accept()) {
   open(PROG, "$cmd|" or die $!;
   while (<PROG>) { $conn->print($_); }
   close(PROG);
}