open (my $PAGER, "| $pager")
  or die "Can't fork a process for $pager: $!";
print $PAGER $text;
close $PAGER