Select Code to Download

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

my $pager = "garbage";
if (-x $pager) {
...
print FH "Writing to $pager";
close(FH) || die("Can't close FH: $!");
}