$SIG{'INT'} = &int_handler;

sub int_handler {
...verbose state printing here...
}