Как мне эхо строить команду Bash больше в Perl?

Это то, что я пытался:

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

, но это не работает, моя программа выходит напрямую ...