gistfile1.txt

use AnyEvent::Handle;

my $c = AE::cv;

my $out = AnyEvent::Handle->new(fh => \*STDOUT);

my $in; $in = AnyEvent::Handle->new(
	fh => \*STDIN,
	on_read => sub{
		my $hdl = shift;
		$out->push_write($hdl->rbuf . "\n");
		$hdl->rbuf = "";
	}
);
$out->push_write("Start\n");

$c->recv;