#!/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