#!/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' );