package Empleado3;
 
my $nemp=0;

sub new
  {
    my($pkg, $nombre, $rut, $sueldo) = @_;
 
    my $e = {
              nombre => $nombre,
              rut => $rut,
              sueldo => $sueldo
            };
    ++$nemp;
    return bless $e, $pkg;
  }

sub DESTROY
  {
    my $e=shift;

    print $e->{nombre}, " Q.E.P.D.\n";
    --$nemp;
  }

sub nemp
  {
    return $nemp;
  }
 
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;