package Foo;

my $data;

sub foo { ... }
sub bar { ... }

1;