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