sub sigint {
    die "Dying.";
}
$SIG{INT} = \&sigint;