Tastaturabfrage

Hi, ich bin lange nicht mehr dabei gewesen und kann ein Problem nicht lösen.

#!/usr/bin/perl -w

use strict;
use warnings;

my $input = '';
$input = <STDIN>;
if ( $input =~ m/q|quit|exit/i ) { exit; }
print "Hallo, Welt!\n";

Diese oder ähnliche Versuch schlagen fehl,
das Programm setzt einfach seinen Lauf fort ohne auf die Tastatur zu warten.

Hat da jemand im Forum eine Hilfe ?

Gruß Atze1-HH