use strict;
use warnings;

use QA::Automation;

my $qa_atm = QA::Automation->new (

                                                    uname => "scott",
                                                    passwd => "tiger",
                                                    sid => "orcl",
                                                    result => "home/my/dir",
                                                    ORA_HOME => 1,
                                                    DETAILED_RESULT => 1,
                                                    CREATE_RESULT_DIR => 1,


                                                );


my @tmp_arr = %{$qa_atm};

$qa_atm->create_cfg_from_uncommented_sql('id_pwd.sql');