Help for this page
$ENV{"VER"} = "3.0";
my $ver_dir = "/opt/SAT/" . $ENV{"VER"};
my $ver_dir = set_ver_dir();
sub set_ver_dir { my $path = $FindBin::Bin; ... my $ver = $1; return "/opt/SAT" . $ver }