use strict; use warnings; use FindBin; use lib "$FindBin::Bin"; use Config; print $test;