my $stop = 0;
$SIG{'INT'} = sub { $stop = 1 };