sub foo { print( "Hello World\n" ); }

BEGIN { *bar = \&foo; }

foo();
bar();