#sleep 10;
&non_blocking_delay( 10000 );

sub non_blocking_delay {
   my $milliseconds = shift;
   my $mainloop     = Glib::MainLoop->new;
   Glib::Timeout->add(
      $milliseconds,
      sub {
         print time, "\n";
         $mainloop->quit;
         FALSE;
      }
   );
   $mainloop->run;
   ;
}