sub handle_foo {
    my $message= 'Example';
    my $callback= sub {
        print $message;
    };
    ...
};