#!/usr/bin/perl

use strict;
use warnings;
use lib qw(.);
use AbgeleiteteKlasse;

my $mitarbeiter = AbgeleiteteKlasse->new(name => 'Rainer', birth => '12.12.1947',position => 'Sachbearbeiter');

print "Name: ",$mitarbeiter->name(),"\n",
      "Geburtsdatum: ",$mitarbeiter->birth(),"\n";