perl STDOUT in pipe

[shishii]

o anche:

system("echo $testo | less");