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