inline_states => {
    _connected  => sub {
        my ($kernel, $session) = @_[KERNEL, SESSION];

        ## Handle control-C
        $kernel->sig( INT => 'event_sigint' );

        ...

} # inline_states

...

        event_sigint => sub {
            my ($kernel, $session) = @_[KERNEL, SESSION];
            print STDERR "Caught Control-C, shutting down gracefully.\n"; 
            $kernel->yield("Shutdown",2,'Received break from user');
        }, # event_sigint