my $ep = 0; my $TEST = qx (read_apt _test_setup); chop $TEST; my $PATH = "/opt/adacs/test/$TEST/.saved_poins"; my $success = open RF, $PATH; unless ($success) { $ep = 1; my $fail = MainWindow->new(); $fail->geometry("250x150"); $fail->Label(-text => "File Failed To Open!")-> grid( $fail->Button(-text => "Acknowledge", - command => sub { exit})); } exit if $ep == 1;