#!/usr/bin/perl
use strict;
use warnings;

foo();
eval{foo()} or warn $@;
print "Done\n";

sub foo {
    {
        no strict 'refs';
        undef *{(caller(0))[3]};
    }
    print "foo was called\n";
}