use strict;

package Foo;
sub new  { print "Expected class: $_[0]"; bless {} => shift }
sub test { print "Actual class: ". ref shift }

  package main;
  *Bar:: = \*Foo::;

   my $x = Bar::new('Bar');