[Cascavel-pm] Acessando funcoes dentro de um while

[Antonio Carlos I. Paes]

Lista,

	Estou tentando escrever um codigo onde o script ira ler um FIFO e executar 
uma sub-rotina, porem dentro do "while" nao consigo executa-la, alguem pode 
me ajudar?

#! /usr/bin/perl -w

$fifo = 'fifo';

sub Teste {
        print 'cof\n';
}

while (1) {
        open(FIFO,"$fifo") || die("$!");
        $string = <FIFO>;
        close(FIFO);
        
        print "Saindo na tela do programa em execucao: " . $string;
        &Teste;
}

So vejo na tela de execucao do programa o "Saindo na tela....", porem se tiro 
do "while" o &Teste executa normal!

Desde ja,
Obrigado.