#!/usr/bin/perl

use strict;
use warnings;

my $anon = sub { return "foo " . "bar" };

my $retVal = &$anon;

print $retVal ;

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

my $anon = bar->new;
my $retVal = &{$anon->{a}};

print $retVal ;

package bar;

sub new{
   my $self = bless{};
   $self->{a} = sub { return "bar"; } ;
   $self;
}