$ENV{"VER"} = "3.0"; 

##</code><code>##

 
my $ver_dir = "/opt/SAT/" . $ENV{"VER"}; 

##</code><code>##

 
my $ver_dir =  set_ver_dir(); 

##</code><code>##

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