Don't assume that more is the right pager to use. It irritates those of us who joke that less is more. Here is a better way:

use vars qw(%Config);
use Config qw(%Config);
print "My pager is $Config{pager}\n";
[download]