$SIG{INT} = sub { my $obj = Whatever->new(); process_interrupt($obj) };