$ perl -e 'sleep 10;print"World\n"' | perl -e '$x=time;
    $SIG{ALRM}=sub{print"Hello ";$y=time}; alarm 2;
    $z=<>; print $z,$y-$x," ",time-$x,"\n"'
Hello World
2 10