$window->signal_connect(
    delete_event=> sub {
        $die = 1; 
        $thread_gps->join; 
        Gtk2->main_quit
    }
);