# Copyright (C) 2004  Author's Name
#
# $Id: Foo.pm,v 1.1 2005-01-18 23:25:09 jhoblitt Exp $

package Foo;

use 5.008005;                           # optional

use strict;                             # not optional
use warnings;                           # not optional

our $VERSION = '0.01';                  # this is version 0.01

use base qw( Baz );                     # become a subclass of Baz

use Foo qw( $bar );                     # import $bar into our namespace

use constant MAXFOO => 3;               # maximum number of foos

our $bar;                               # is a package variable

my $baz;                                # is a package scoped lexical variable

sub fuu
{

}

1;

__END__
