open my $query_fh, '-|', 'SQL_Query' or die $!;
open my $less_fh, '|-', 'less -cSRM' or die $!;

while (<$query_fh>) {
   ...
   print $less_fh sprintf (%-10s %-10s %10s,$var1,$var2,$var3);
}

close $less_fh;