package Empleado;

sub alloc
  {
    my($pkg, $nombre, $rut) = @_;

    my $e = {
              nombre => $nombre,
              rut => $rut
            };
    return bless $e, $pkg;
  }

sub nombre
  {
    my $e=shift;

    return $e->{nombre};
  }

1;