#!/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";