sub resolve_envs {
    my ($path) = @_;
    while ($path =~ m/[^\\]\$\{?(\w+)\}?/) {
        my $env = $1;
        if (exists($ENV{$env})) {
            $path =~ s/([^\\])\$\{?(\w+)\}?/$1$ENV{$env}/;
        } else {
            $path =~ s/([^\\])\$\{?(\w+)\}?/$1\\\$$env/;
        }
        
    }
    $path =~ s/\\\$/\$/g;
    return $path;
}