#!/usr/bin/perl

use strict;
use warnings;

# install within block to temporarily
# turn off strict refs
{
    no strict 'refs';
    *{'Foo'} = sub { print "Hello, world!\n"; };
}

my $foo = \&Foo();
[download]

EDIT: Forgot about strict 'refs'