sub set_ver_dir {
 my $path = $FindBin::Bin;
 $path =~ /\opt\/SAT\/(\d*\.\d*)\//;
 my $ver = $1;
 return "/opt/SAT" . $ver 
}