my %options=();
getopts("c:f:h",\%options);

my $instance_file = $options{'f'} if defined ($options{f});
my $CollConnect=$options{'c'} if defined ($options{c});

my $CollTableName = 'CCPM_TABLE_SPACE_COLL';

my $DateOraFmt="'YYYYMMDD HH24:MI:SS'";

if (!open(INSTANCES,"$instance_file"))
{
        Amoc::logit("Unable to open file: $instance_file");
}
else
{
        while(my $string_inst =  <INSTANCES>){
        chomp($string_inst);
        if($string_inst =~ /(.*)\/(.*)@(.*)/)
        {
        do
                {
                my $pass = (~/path DEC $2);
                print "$pass\n";
                }
 
        }
    }
}