#!/usr/local/bin/perl -lw
  use strict;

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

  package main;
  *Bar:: = \*Foo::;
  Bar->new->test;
  Foo::new('Bar')->test;