package EmpJC;

@ISA=("Empleado");

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

    my $e=$pkg->alloc($nombre, $rut); # usamos al padre

    $e->{sueldo}=$sueldo;

    return $e;
  }

sub sueldo
  {
    my $e=shift;

    return $e->{sueldo};
  }

1;