#!/usr/bin/perl

use Dolgozo;

$janos = new Dolgozo( "Nagy János", "1980-01-01", 850000);

$janos->beallitNev("Piros Lajos");
print $janos->lekerNev();