use strict;
{
    my $foo;
    sub setFoo{
        $foo = shift;
    }
    sub getFoo{
        return $foo;
    }
}