c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"sub func { print qq{hey @_}; }
 sub bonk { print qq{zot @_}; }
 ;;
 my $symref = 'func';
 ;;
 use vars qw($symref);
 $main::symref = 'bonk';
 ;;
 my $mainobj = bless [];
 dd $mainobj;
 ;;
 main        -> $symref('ho');
 'main'      -> $symref('hi');
 my $mainstring = 'main';
 $mainstring -> $symref('he');
 $mainobj    -> $symref('there');
 ;;
 no strict 'refs';
 &$main::symref('nonny-nonny');
"
bless([], "main")

hey main ho
hey main hi
hey main he
hey main=ARRAY(0x37716c) there
zot nonny-nonny