THIS: 

package Foo;

{

    my $state = 0;     # better initialize it

    sub new    {...};

    sub fiddle {...};

    sub faddle {...};

    sub fuddle {...};

}

__END__


NOT THAT:

package Foo;

sub new    {...};

sub fiddle {...};

{

    my $state = 0;     # better initialize it


    sub faddle {...};

}

sub fuddle {...};

__END__