G:\>perl cdr_vnxe\cedar_rapids_vnxe_v2.pl
Use of uninitialized value $text in substitution (s///) at G:/Strawberry/perl/vendor/lib/Win32/ShellQuote.pm line 85.

##</code><code>##

my $array_creds = Config::Tiny->new();
$array_creds   = Config::Tiny->read('vnxe_config.conf');

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

use Config::Tiny;
my $Config = Config::Tiny->new;
$Config = Config::Tiny->read( 'file.conf' );
print "$Config->{_}{var1}\n";


##</code><code>##

marto@Marto-Desktop:~/code$ ./cf.pl 
derp

##</code><code>##

marto@Marto-Desktop:~$ ./code/cf.pl 
Use of uninitialized value in concatenation (.) or string at ./code/cf.pl line 8.

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

use File::Basename;
my $dirname = dirname(__FILE__);
use Config::Tiny;
my $Config = Config::Tiny->new;
$Config = Config::Tiny->read( "$dirname/file.conf" );
print "$Config->{_}{var1}\n";

##</code><code>##

marto@Marto-Desktop:~$ ./code/cf.pl 
derp