Launch and write to GIT_PAGER

gistfile1.pl

#!perl -l
use strict;
use warnings;

local *STDOUT = do {
    if (my $pager = $ENV{GIT_PAGER} // qx(git config --get core.pager)) {
        open my $pipe, '|-', $pager;
        $pipe;
    } else {
        *STDOUT;
    }
};

print ...;