package Benutzer;

@ISA = ('Person');

use NET::ldap;
use strict;

sub new {
	my $class = shift;
	my ($id, $nachname, $vorname) = @_;
	$class->SUPER::new($id, $nachname, $vorname);
        [...]
}