http://www.perlmonks.org?node_id=33567


in reply to What is a good "Press any key to continue" code?

{ local( $| ) = ( 1 ); print "Press <Enter> or <Return> to continue: "; my $resp = <STDIN>; }