use Tk;

my $PATH = "/opt/adacs/test/$TEST/.saved_poins";
open( RF, $PATH ) or do_err_window() && exit;

print "This got executed\n";

sub do_err_window    
{
    my $fail = MainWindow->new();
    $fail->geometry("250x150");
    $fail->Label(-text => "File Failed To Open!")->
	   grid( 
		$fail->Button(-text => "Acknowledge", 
			      - command => sub { exit}
			      )
		); 
    MainLoop();
}