#!/usr/bin/perl
#anonysub.pl

#use strict;
#use warnings;

package foo; 
our $bar = "10\n";
our $anonysub = sub { print "10\n"};

package main; 
print $foo::bar;
&$foo::anonysub(); #before BUU's comment
$foo::anonysub->(); #after BUU's comment