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

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

#!/usr/bin/perl

use strict;
use warnings;
use Term::ReadKey;

print "bitte eine Taste drücken: ";
my $key = ReadKey(0);

print "\nSie haben $key gedrückt\n";