Soy nuevo programando en Perl y aquí les presento mi primera gran duda...

============= Inicio ==============

@list = ();
$end = "end!";

while ( $directory ne $end ) {
print "Directory: ";
$directory = <STDIN>; <-- Ahi dice: < S T D I N> todo "junto".
push (@list, $directory);
print @list;
}

=============== Fin ===============

Lo que pretendo es que al escribir: end! el ciclo "while" se detenga; lamentablemente no ocurre.

Agradecere vuestra ayuda.