package Blah;

sub doSomething
{
    $main::f->whatever();
}

##</code><code>##

our $f = Foobar->new();