use strict;
use warnings;
BEGIN {
    push ( @INC,".");
}
use Foo ('$hello');

print $hello->('test'),"\n";