use strict; use warnings 'all'; use FindBin; use lib "$FindBin::Bin/lib";