sub do_work {
    eval {
        eval {
            my $word = $ENV{WORD} || 'a';
            $word++ while $word ne 'interrupt';
            warn "Got: $word\n";
        };
        if( $@ ) {
            warn "Ignoring failure.\n";
        }
        1
    } or do {
        my $e = $@ || 'Unknown error';
        warn "Failed: $e\n";
    };
}
my $seconds = 2;