sub open_file {
my $success = open RF, "/bin/.saved_points"
unless ($succeed) {
         my $fail = MainWindow->new():
         $fail->Label(-text => "File Failed to open")-> pack();
}
}