package Foo;

my $hello;

sub hello {
    print "$hello\n";
    return;        # I like explicit returns.
}