use strict; use Config; use vars qw(%Config); print "My default pager is $Config{pager}\n";