use Tk::Carp qw/tkdie/;

chomp(my $TEST = qx (read_apt _test_setup));
my $PATH = "/opt/adacs/test/$TEST/.saved_poins";

open RF, $PATH or tkdie "File failed to open!";