#!/usr/bin/perl
$arg=$ARGV[0];
&navigate;
&asd;
sub navigate {
@vobtag=`cut -d ";" -f1 conffile.txt`;
print "@vobtag\n";
}
sub asd {
$arg=$ARGV[0];
$path="/remote/scm/builds/$arg/Formal";
chdir($path);
@array=`ls `;
print @array;
}

##</code><code>##

/vobs/ivr;IR:IVR;IVR;Interactive Response
/v_dialer;APC:Dialer;APC;Avaya Proactive Contact
/v_dialermidtier;APC:Supervisor;APC;Avaya Proactive Contact
/v_dialerclient;APC:Agent;APC;Avaya Proactive Contact
/vob1;SBL;Siebel;Siebel

##</code><code>##

bt            
coreservices  
cs_licgen    
HCC           IVRD                    
ivr_vw_win
v_dialer
v_dialermidtier
vob1
IVRD     

##</code><code>##

/vobs/ivr
 /v_dialer
 /v_dialermidtier
 /v_dialerclient
 /vob1
4.0.0.0.28
4.0.0.0.29
4.0.0.0.30