Perl Ajuda função condicional

[kaasp]

Queria criar um script pras mensagem irem aparecendo aos poucos ex:

#!/usr/bin/perl

print "OiOiOi\n"; - Essa mensagem aparece primeiro depois de um tempo aparece a mensagem de baixo e assim vai indo
print "OiOiOi \n";

print "Oi ?\n-> "; - E uma pergunta se responder errado da uma frase , se responder certo da outra

chomp ($oi = <>);

print "Voce disse $oi";

Alguem sabe me ajudar ?

[fvox]

Hi.

Leia a doc da função sleep()[1]:

#!/usr/bin/env perl 
 
use strict; 
use warnings; 
use feature 'say'; 
 
say 'oi!'; 
sleep(2); # Aguardando dois segundos 
say 'Cá estou novamente!';  

Se tiver problemas, sete a variável $| para 1 (true) para liberar o buffer do output instantâneamente.

[1] Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...

[]'s