package Empleado1;

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

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

sub impr
  {
    my $e=shift;

    print "Nombre: ", $e->{rut}, "\n",
          "RUT:    ", $e->{nombre}, "\n",
          "Sueldo: ", $e->{sueldo}, "\n";
  }

sub aumenta_sueldo
  {
    my($e, $delta) = @_;

    $e->{sueldo} += $delta;
  }

sub sueldo # método de acceso
  {
    my $e=shift;

    return $e->{sueldo};
  }

1;