print "Drücke 'w' für weiter...$/";
while($key = getc(STDIN)){
    last if $key  eq "w" 
}