$SIG{INT} = sub {
    print "ctrl c hit\n";
    exit();
};