#!/usr/bin/perl

use strict;
use warnings;

CMS->foo();
CMS->bar();

CMS::Galerie->foo();
CMS::Galerie->bar();

package CMS;

sub foo {print "foo von CMS\n";}

sub bar {print "bar von CMS\n";}

package CMS::Galerie;

use base qw(CMS);

sub foo {print "foo von CMS::Galerie\n";}