use IO::Prompt;

my $char = prompt "Bitte eine Taste drücken zum weiter machen...", -one_char;