Read With Formatting

Hello Friends

I am facing problem.

i am writing a perl script in which user have to press any keyboard key in between iterations.

like if one task is done then result will be displayed
after that user have to hit any keyboard key to proceed execution.

i ahve tried

$anyvariable = <STDIN>;
but it will work only with retun key.

please help me.

Thanks in advance.

Regards
Manish