Let's define a class!

Usually, classes are named using CamelCase.

    package Foo::Bar;

    use strict;
    use warnings; # Always use these in your classes.

    sub new {
      my ($class) = @_;
      return bless {}, $class;
    }

This class defines an object.  The object cannot really do much of anything.