#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

###########################################################
# Basisklasse
###########################################################
package Basepac;

sub new {                 # Basisklassen-Konstruktor
    my $type = shift;
    my $self = {};
    bless $self, $type;
}

sub basemethod {          # Basisklassenmethode
    print "Methode: basemethod\n";
}

###########################################################
# Abgeleitete Klasse
###########################################################
package Deripac;

@ISA = qw ( Basepac );    # Erbt von Basepac
                         
sub derimethod {          # Methode der abgeleiteten Klasse
    print "Methode: derimethod\n";
}


###########################################################
# Hauptprogramm
###########################################################
package main;

$derobj = Deripac->new();  # Objekt der abgeleiteten
                           # Klasse initiieren

$derobj->derimethod();     # Eigene Methode
$derobj->basemethod();     # Geerbte Methode