$ perl test.pl
<press d>
Get key d
$