#!/usr/bin/perl

package Foo;
sub bar { print "bar() called.\n" }

package main;

BEGIN { %{*NewFoo::} = %{*Foo::} }

NewFoo::bar();  # calls Foo::bar();