( uid_194 | 2010. 08. 12., cs – 11:20 )

#! /usr/bin/perl -w
use warnings;
use strict;

open (OUTF, "|-", "/usr/bin/less");

my $i;
for ($i = 0; $i < 200; $i++) {
	print OUTF "Blah: $i\n";
}

close (OUTF);

1;

Ez mukodik nalam.