$SIG{'INT'} = sub { kill -9, getppid() };