Carlos Rodrigues

Estou aprendendo perl e fiz uma espécie de programa que abre arquivos, eu coloquei num laço while para que o diretório pudesse sempre ser escrito e pensei que em quando se digitasse 'sair' o laço parava. Porém não está dando certo. Aqui o código: #!/usr/bin/perl sub abrir{ my ($x) = @_; open(INFO, $x); @arquivo = <INFO>; close(INFO); print @arquivo } $c = 1; while($c == 1){ print ':'; $a = <STDIN>; if($a == 'sair'){ $c = 2; } else{ abrir($a); } }