#!/usr/bin/perl

use warnings;

my $i=0;

open my $less, '|-', 'less';
while()
{
	print {$less} $i++**2, "\n";
}