$SIG{INT} = sub {
   open my $fh, ">PleaseStop" or warn "open(PleaseStop): $!";
}