#!/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;
}