use strict;

my $hit_count = 0;
$SIG{INT} = sub {
    if (++$hit_count > 3) {
        print "terminated!\n";
        exit;
    }
    print "Hit!\n";
};

while (1) {
    sleep(1000);
}

##</code><code>##

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)-.*)$/;
$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"- $1"}&&`rm $1`;
print$\;}