#!/usr/bin/perl -w
use strict;
 
package Person;

sub new {
	my $proto = shift;
	my $self = bless {}, ref $proto || $proto;
	print "Parameter: @_\n";
	return $self;
}

package Benutzer;
use base 'Person'; 
 
 sub new {
         my $class = shift;
         my ($id, $nachname, $vorname) = @_;
         $class->SUPER::new($id, $nachname, $vorname);

 }
package main;
new Benutzer(1, 'hinten', 'vorne' );