package main;
{
    no warnings 'once';
    *main::foo = sub {print "Foo\n"}
    foo();
}