#!/usr/bin/perl

use sigtrap qw(stack-trace USR1);

use Inline C => 'DATA';

warn "kill -USR1 $$\n";
endlos();

_ _ DATA _ _
_ _ C _ _
void endlos() {
    while(1) {
        sleep(1);
    }
}