sub sub_env {
        my($in_string)=@_;
        $in_string =~ s/\$([A-Z0-9_]+)/$ENV{$1}/g;
        return $in_string;
}