var myfoo = new Foo();

sub _barfn {};


{
   package Foo
   
   # ...
}

#!/usr/bin/perl

use strict;
use warnings;

my $foo = Foo->new;

$foo->bar;

sub foobar { foo => -bar }

package Foo;

sub new { bless {} }

sub bar {
        my( $package ) = caller();

        no strict 'refs';

        print &{$package.'::foobar'}();
} # bar

#!/usr/bin/perl
use strict;
use warnings;

package buh;

use vars '$sub';
$sub=sub{};

sub use_sub { $sub= shift; }

sub bar { $handle->(@_); }

package main;

sub foo { print "foo: @_\n"; }

buh::use_sub(\&foo);
buh::bar('bar');