Comment puis-je écho chaîne de commande bash plus en Perl?

C'est ce que j'ai essayé:

my $s = "s" x 1000;
my $r = `echo $s |more`;

Mais ça ne fonctionne pas, mon programme s'arrête directement...

OriginalL'auteur lexer | 2011-09-08