open PAGER, ($ENV{PAGER} || 'less') . '|' or die "blah $!";

##</code><code>##

open PAGER, ('|' . $ENV{PAGER}) or die "blah $!";