print "Drücke 'w' für weiter...";
my $antwort = <STDIN>

if($antwort eq "w"){
...
}

#wenn ich nun w gedrückt habe, sollte ich es nicht mit ENTER bestätigen müssen