使用anyevent:

#!/usr/bin/perl -w

use AnyEvent;

$| =1; print "Enter you name\n";

my $cv = AnyEvent->condvar;

my $name;

my $wait_for_input=AnyEvent->io(

fh=> \*STDIN,

poll=>"r",

cb=>sub {

$name=<STDIN>;

print $name;

$cv->send;

}

);

print "do something first\n";

$cv->recv;