#!/usr/bin/perl -w
use strict;
package foo; 
sub new{
my $m = {}; 
bless $m; 
return $m;} 

package bar;
sub new{
 my $b = {};
 bless $b;
 return $b;}

sub corny {
	return 'sparky';
}

package main; 
my $s = foo->new(); 
my $r = bar->new();
$s->{'spark'} = \&bar::corny;
print $s->{'spark'}();
1;