#!/usr/bin/env perl

package Dolgozo;

sub new {
    my $class = shift;
    my $self = {
        _nev => shift,        
        _szuletes => shift,
        _fizetes => shift,
    };
    bless $self, $class;
    return $self;
}

sub lekerNev {
    my( $self) = @_;
    return $self->{_nev};
}

sub beallitNev {
    my ( $self, $nev ) = @_;
    $self->{_nev} = $nev if defined($nev);
}

1;