$SIG{INT} = sub {$Abort++};

while (1) {
    if($Abort) exit(0);
    system(do something);
}