sub resolve_env_in_path {
    my ($path) = @_;
    $path =~ s/\$\{(\w+)\}/$ENV{$1}/g;
    $path =~ s/\$(\w+)/$ENV{$1}/g;
    return $path;
}