perl STDOUT in pipe

[Mutato]

Ammettiamo che abbia uno script del genere:

#!/usr/bin/perl -w

$testo = "OpenClose.it è un sito dedicato alla pubblicazione di articoli riguardanti il software libero, il sistema operativo GNU/Linux, le alternative al copyright e quanto può essere inerente. Nessun pregiudizio, solo buon senso." 
print $testo; 

Come posso mettere in PIPE (|) il print con un comando di shell, ad esempio LESS?

Thx.

[Ilmalcom]

Sposto su CGI e PERL e lascio un link qui, così è più probabile che ti aiutino

[Mutato]

Grazie! Mi rispondo da solo...

#!/usr/bin/perl -w 

$testo = "OpenClose.it è un sito dedicato alla pubblicazione di articoli riguardanti il software libero, il sistema operativo GNU/Linux, le alternative al copyright e quanto può essere inerente. Nessun pregiudizio, solo buon senso."  
open LESS, "| less";
print LESS $testo; 

[shishii]

o anche:

system("echo $testo | less");