#!/usr/bin/perl

use Dolgozo;
use Mernok;

$janos = new Dolgozo( "Nagy János", "1980-01-01", 850000);
$janos->beallitNev("Piros Lajos");
print $janos->lekerNev();

$mari = new Mernok( "Piros Mária", "1985-06-01", 870000);
$mari->beallitDiploma("ABE34224");
print $mari->lekerNev()."\n";
print "Diploma száma: ".$mari->lekerDiploma();