my $pager = "garbage";
open(FH,"| $pager") || die("Can't fork a $pager: $!");
print FH "Writing to $pager";
close(FH) || die("Can't close FH: $!");