[PERL] Leggere da "standard input"

[Sephirot]

Salve,
sto seguendo la guida di html.it, ma ho un problema per quanto riguardare l'immissione di dati da tastiera, solitamente si usa <StdIN>, ma ho provato questo esempio:

#!/usr/bin/perl
print "Scegli un numero\n";
$num=<StdIN>;
if ($num == '0') {
print "Hai premuto 0\n";
} elsif ($num == '1') {
print "Hai premuto uno\n";
} elsif ($num == '2') {
print "Hai premuto due\n";
} elsif ($num == '3') {
print "Hai premuto tre\n";
} else {
print "Non hai premuto nè zero nè uno nè due nè tre!\n";
}

e il risultato e' che quando lancio questo scritp il programma esce senza chiedermi nulla in input...

sephi@iride ~/perl $ perl input2.pl  
Scegli un numero
Hai premuto 0

in realta' non ho premuto nulla a parte lanciare lo script, ma non chiede nulla... sbaglio io? ho dimenticato qualcosa?

[MARTEDI]

scrivi <STDIN> al posto di <StdiN> e hai risolto il problema

[Sephirot]

grazie... sono un idiota, ho seguito la guida pensavo fosse quello il modo corretto.
voglio sotterrarmi