my $feeling = 'happy';

$SIG{INT} =  \&handler;

sub handler {
        warn "I feel ".$feeling."\n";
        exit;
}

# do some stuff
$feeling = 'sleepy';
# do some other stuff
$feeling = 'grumpy';