sub QuitHandler { do_cleanup(); }

$SIG{'QUIT'} = \&QuitHandler;