use warnings; use strict; use FindBin; use File::Spec::Functions qw/catfile/; use Config::Tiny; my $config_file = catfile($FindBin::Bin, 'vnxe_config.conf'); my $array_creds = Config::Tiny->read($config_file) or die "Failed to read $config_file";